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INTRODUCTION 


The  objective  o£  this  study  is  to  statically  reconstruct  a  surface 
representative  of  Sea  State  One  based  on  direct  measurement  of  a  single 
point.  This  point  measurement  was  obtained  by  a  specialized  piece  of 
test  equipment  known  as  the  wave  computer.  The  wave  computer  by  means  of 
a  capacitive  probe,  laser,  screen,  and  video  camera  provides  the  eleva¬ 
tion  of  the  sea  surface  and  a  unit  normal  at  a  single  point  of  observa¬ 
tion.  *  This  test  was  conducted  at  the  Naval  Ocean  Systems  Center  (NOSC) 
Tower  about  a  mile  off  the  coast  of  San  Diego  on  13  February  1985  under 
the  direction  of  personnel  from  the  Naval  Weapons  Center,  China  Lake, 
Calif. 


THE  WAVE  COMPUTER  SYSTEM 


In  this  section  only  a  general  overview  of  the  wave  computer  system 
will  be  offered.  A  more  comprehensive  treatment  of  this  subject  is 
available  in  Appendix  A,  which  also  includes  a  system  circuit  sche¬ 
matic.  The  wave  computer  system  was  deployed  off  the  south  side  of  the 
NOSC  Tower  as  shown  in  Figure  1. 

Figure  2  is  a  block  diagram  of  the  wave  computer  system.  The  eleva¬ 
tion  of  the  sea  surface  is  reported  by  a  capacitive  probe  subsystem.  A 
capacitive  probe  consists  of  an  insulated  wire  using  the  seawater  as  the 
outer  conductor,  thus  forming  a  coaxial  cable  whose  capacitance  per  unit 
length  is  well  defined.  This  capacitance,  which  is  a  function  of  the 
elevation  of  the  sea  surface,  is  then  used  to  time  a  monos table  one-shot. 
Thus ,  the  output  pulse  duration  of  the  one-shot  is  dependent  on  the 
elevation  of  the  sea  surface.  These  pulses  are  then  integrated  over 
several  hundred  cycles  resulting  in  a  DC  level  proportional  to  the  eleva¬ 
tion  of  the  sea  surface.  The  frequency  response  of  the  capacitive  probe 
system  is  120  hertz,  and  resolution  down  to  0.5  centimeter  has  been 
demonstrated.  This  elevation  signal  was  labeled  the  'Z  vector*  and  iB 
stored  on  the  instrumentation  tape  recorder  simultaneously  with  direc¬ 
tional  signals. 

The  directional  information  is  provided  by  the  beam  screen  subsystem. 
This  subsystem  consists  of  reflecting  a  parallel-with-gravity  incident 
laser  beam  off  the  sea  surface  and  observing  its  point  of  impact  on  a 
diffuse  translucent  screen.  This  observation  is  performed  in  real  time 
at  a  sampling  frequency  of  60  hertz  by  a  charge-injection-device  (CID) 
video  camera  pointed  at  the  diffuse  screen.  The  composite  video  signal 
is  then  decoded  by  the  wave  computer  central  processor  into  x*  and  y* 
beam  screen  coordinates. 


*The  NOSC  Tower  was  taken  over  by  the  Scripps  Institute  of  Tech¬ 
nology,  University  of  California,  San  Diego,  on  1  November  1986. 
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Thus,  the  wave  computer  system  outputs  the  three  data  vectors  in 
real  time  x'  ,  y'  ,  and  2'  ,  which  accurately  represent  the  position  and 
length  of  the  laser  beam  reflected  path.  Moreover,  the  elevation  of  the 
sea  surface  is  also  accurately  known. 


GEOMETRIC  INTERPRETATION  OF  WAVE  COMPUTER  OUTPUT 


Figure  3  shows  the  beam  screen  geometry  under  analysis.  Note  that 
now  we  have  a  secondary  coordinate  system,  that  is,  x,  y,  and  2,  which  we 
shall  refer  to  as  "geographical  coordinates."  These  geographical  coordi¬ 
nates  constitute  the  stationary  reference  system  in  which  the  sea  surface 
is  recorded  and  later  reconstructed.  The  unit  normal  to  the  sea  surface 
may  now  be  obtained  quickly  in  the  geographical  coordinate  system  by 
exploiting  the  first  and  second  laws  of  reflection.  That  is,  we  know 
that  the  reflected  and  incident  rays  lie  in  the  same  plane  and  that  the 
elevation  angle  of  the  unit  normal  is  half  that  of  the  reflected  laser 
beam. 


With  this  information  we  may  now  write  the  elevation  angle  of  the 
unit  normal  to  the  sea  surface  directly  in  terms  of  wave  computer  output 
as  in  Equation  1 : 


<Kt)  =  (l/2)tan 


^x'(t)]2  ♦  [y'(t)]2 
.  Z*(t) 


(1) 


Moreover,  by  a  considered  choice  of  the  geographical  coordinates  we  may 
write  the  azimuthal  angle  of  the  unit  normal  in  this  coordinate  system 
as  in  Equation  2: 


0(t)  =  tan 


n 


(2) 


With  this  information  we  may  now  write  the  unit  normal  in  the  geograph¬ 
ical  coordinate  system  as  in  Equation  3  (Reference  1): 


N(t)  =  {sin[$(t) jcos(0(t)]}i  +  {sin(4>(t)]sin(0(t)) }j 
+  cos[4»(t)]k 


(3) 
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X-  y-  2 •  WAVE  COMPUTER 

COORDINATE  SYSTEM 


FIGURE  3.  Wave  Computer  Geometry  Under  Analysis. 
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For  the  geographical  coordinate  system  "Z"  dimension  we  have  the  simple 
relation  in  Equation  4: 

Z(t)  =  Zo  -  Z'(t)  (4) 

where  Z  is  chosen  to  eliminate  zero  frequency  offset  bias.  It  will  be 
shown  Aat  the  information  contained  in  Equations  3  and  4  completely 
characterize  the  sea  surface  when  observed  over  adequate  periods  of  time. 

The  spatial  partial  derivatives  of  the  sea  surface  in  the  x  and 
y  directions  become  immediately  apparent  when  one  considers  an  alterna¬ 
tive  form  of  the  unit  normal  equation  that  is  given  by  Equation  5 
(Reference  2): 


N(t)  =  ~(2x)i  -  (Zy) j  +  (l)k 

V(Zx)2  +  (Zy)2  ♦  1 


(5) 


By  comparing  the  form  of  Equation  5  to  that  of  Equation  3  and  equating 
coefficients  of  like  unit  vectors  we  obtain  Equations  6  and  7: 


=  -tan[<Kt)]cos[e(t))  =  zx(t) 


(6) 


=  -  tan[4»(t) ] sin[9(t) ]  =  Zy(t) 


(7) 


As  we  shall  see  later  the  Fourier  transform  of  these  spatial  deriva¬ 
tives  will  be  indispensable  in  determining  the  wavelengths  of  the  wave 
components . 


MATHEMATICAL  MODELING  OF  THE  SEA  SURFACE 


We  are  uow  prepared  to  introduce  a  three-dimensional  model  of  the 
sea  surface.  However,  before  we  proceed,  an  outline  of  the  fundamental 
assumptions  is  in  order.  First,  the  principle  of  time  invariance  of  wave 
component  amplitude,  velocity  and  wavelength  has  been  assumed.  Without 
this  assumption  we  could  be  lost  in  a  maze  of  complexity.  Second,  the 
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principle  of  spectral  spatial  invariance  is  assumed.  That  is,  if  we  were 
to  perform  a  wave  computer  measurement  at  a  different  location  within  a 
reasonable  distance  we  should  obtain  the  same  spectral  results  upon 
applying  a  Fourier  transform.  Last,  it  is  also  assumed  that  each  indi¬ 
vidual  frequency  component  has  associated  with  it  a  unique  direction, 
velocity,  and  wavelength.  With  these  assumptions  put  forth  we  may  write 
the  sea  surface  equation  as  a  linear  superposition  of  plane  waves  as 
indicated  below  in  Equation  8: 


N-l 

Z(F,t)  =  £  Ct 
n=0 


■cos  (r  •  U  -  V  t) 
A  n  n  n 
n 


(8) 


where 


r  •  UQ  =  xcos(yq)  +  ysin(yQ)  =  projection  on  wave  axis  n 

r  =  a  2-dimensional  vector  in  the  xy  plane  indicating  position 
t  =  time,  seconds 

N  =  number  of  wave  components  considered 
C  =  amplitude  coefficient  of  wave  component 

Uq  =  unit  vector  in  the  direction  of  wave  component  travel 

Vq  =  wave  component  velocity,  ft/sec 

\q  =  wavelength  of  wave  component,  ft 

(Jiq  =  angular  phase  delay  of  wave  component,  radians 

Yq  =  angular  bearing  of  wave  component  propagation  axiB 

Note  that  the  dot  product  in  the  argument  of  the  cosine  term  determines 
the  projection  of  the  point  of  observation  "r"  on  the  axis  of  propaga¬ 
tion  of  the  plane  wave  component  under  consideration.  This  operation 
is  illustrated  in  Figure  4.  If  we  were  to  evaluate  Equation  8  at  ori¬ 
gin,  which  is  the  only  point  we  are  really  observing,  we  would  obtain 
Equation  9: 


N-l  f/2nVt\  N"1 

Z0(t)  =  Z(o,t)  =  X  V08  =  S  *  V(9) 

n=0  n  n=0 


where 


2  nV  t 


W  = 


n  \ 


=  angular  velocity 


i 

i 


(a)  Projections  on  plane  wave  axes. 


(b)  Top  view  of  plane  vectors. 
FIGURE  4.  Plane  Wave  Components. 
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Taking  the  spatial  derivatives  of  our  sea  surface  model  and  $gain  evalua¬ 
ting  at  origin  yields  Equations  10  and  11: 


N-l 


dzo(t) 

dx 


dZo(t) 


=  -  2n 


cos(YQ)sin 


N-l 


dy 


2  n 


n=0  \  n/ 


[(=¥)-■ 

m 


(10) 


(11) 


The  spatial  partial  derivatives  of  oui  sea  surface  model  in  conjunction 
with  Equations  6  and  7  suggest  a  means  by  which  we  swy  determine  the 
wavelength  of  our  plane  wave  components.  This  is,  of  course,  if  we  can 
isolate  the  individual  frequency  components  in  our  series  model  of  the 
sea  surface. 


DATA  REDUCTION  OF  WAVE  COMPUTER  SIGNALS 


The  wave  computer  data  obtained  from  the  NOSC  Tower  tests  were 
stored  on  a  Honeywell  101C  instrumentation  tape  recorder.  The  tempo¬ 
rally  based  analog  data  was  then  red  into  the  HP6942A  multiprogranser 
where  the  information  was  scaled  and  digitized.  Once  a  complete  data 
record  was  obtained,  the  HP9000  computer  read  the  data  from  the  multipro- 
g rammer  memory  banks  through  the  linking  HPIB  data  bus.  At  this  point 
the  data  was  then  stored  on  the  HP7914  bard  disk  drive  for  later  opera¬ 
tions.  The  above  operation  was  supervised  by  the  HP9000  program  "SEA_ 
LINK."  A  diagram  of  the  data  reduction  equipment  layout  is  shown  in 
Figure  5. 

The  next  software  operation  involves  converting  the  x'y'z'  data 
files  into  angular  formatted  data  files;  that  is,  the  structure  of  8* 
Z,  in  which  the  first  two  variables  are  the  unit  normal  elevation  and 
azimuthal  ar-les.  It  should  be  noted  that  no  information  is  lost  or 
gained  in  this  step;  only  a  handier  data  format  is  obtained.  This  opera¬ 
tion  is  performed  by  th*  program  "ANGLER."  We  are  now  prepared  to 
address  the  spectral  aspects  of  the  data-reduction  process. 
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FIGURE  S.  Layout  of  Data  Reduction  Equipment 
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SPECTRAL  ANALYSIS  OF  WAVE  COMPUTER  SIGNALS 


The  overall  strategy  of  spectral  analysis  of  the  wave  computer 
signals  entails  three  operaticns.  First,  the  Fourier  transform  of  the 
"Z"  vector  is  performed  to  provide  us  with  the  "C  "  coefficients  of  the 
sea  surface  model  shown  in  Equation  8.  This  als£  provides  information 
as  to  which  particular  frequency  components  are  dominant  in  the  spectrum. 
Second,  we  oust  determine  the  direction  of  propagation  of  the  wave  fre¬ 
quency  component  under  consideration.  Last,  the  wavelength  associated 
with  each  wave  frequency  component  must  be  determined,  from  which  the 
wave  velocity  follows. 


DETERMINATION  OF  THE  AMPLITUDE  SPECTRUM 


The  amplitude  frequency  spectrum  of  the  sea  surface  follows  directly 
from  taking  the  Fourier  transform  of  the  "Z"  vector.  It  has  been  shown 
in  Appendix  B  that  the  Fourier  transform  of  the  "Z"  vector  results  in  the 
quantity  in  Equation  12: 


‘ZQ(t)}  = 


I 


Zo(t)e'j2nft  dt  *  (P/2)Cksinc[F(f  -  fw)) 


(12) 


Since  in  applicaton  we  are  taking  the  Fast  Fourier  Transform  (FFT)  of  the 
"Z"  vector,  our  spectrum  will  differ  by  a  proportionality  constant  equiv¬ 
alent  to  the  quantized  magnitude  of  the  differential.  Thus,  we  define 
the  magnitude  of  the  amplitude  spectrum  as  in  Equation  13:* 


|20(kAf)| 


N  -1 

F{Z  (t)} 

-j2nnk/N 

o  _ 

Ts 

X,  VnT’>e  p 

n=0 

(13) 


Note:  Z  (kAf)  is  the  equivalent  discrete  Fourier  transform  spec¬ 
trum  variable  8f  Z  (t)  and  should  not  be  confused  with  it. 
o 
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|Zo(kAf)| 


J(M(p)c  bi 

I  \p  /\2  /  ''k*1' 


sinc(P(kAf  -  £w)) 


2 


sinc(P(k&f  -  fw)) 


(14) 


where 


P  =  temporal  length  of  data  record,  seconds 
Np  =  number  of  FFT  points  (power  of  two) 

Ts  =  temporal  saapling  interval,  seconds 

fw  =  actual  frequency  of  wave  component,  hertz 

Af  =  1/NpTs  quantized  frequency  step  of  FFT 

Assuming  our  frequency  spacing  to  be  of  sufficient  resolution  we  say  then 
neglect  the  sine  tera  in  that  it  will  tend  toward  unity.  Ve  are  left 
with  the  coapact  relation  in  Equation  15: 


Zo(kM) 


N  C. 
-EJE 
2 


(15) 


Thus  the  FFT  operation  performed  on  the  "Z"  vector  by  the  program 
"ZJJPECTRUM"  provides  us  with  the  first  piece  of  the  puzzle.  Referring 
to~Figures  6(a)  through  6(c)  we  find  the  aaplltude  spectrua  of  the  "Z" 
vector  for  sampling  windows  of  17,  34,  and  60  seconds.  We  have  only 
shown  and  used  frequency  components  as  far  out  as  7  hertz.  Much  beyond 
this  point  the  spectrua  becomes  dominated  by  noise  and  unreliable  even 
though  the  amplitude  is  quite  ainiaal.  It  is  interesting  to  note  that 
the  higher  frequency  coaponents  becoae  less  doainant  with  increasing 
teaporal  record  lengths,  whereas  the  lower  frequency  coaponents  seea  to 
be  quite  stable.  That  is,  the  higher  frequency  wind  wave  coaponents  tend 
to  demonstrate  a  randoa  canceling  effect  while  the  lower  frequency  swell 
coaponents  appear  quite  stationary.  This  effect  is  also  demonstrated  in 
Figures  7(a)  through  7(c)  where  a  blowup  of  the  aaplitude  spectrua  origin 
is  shown. 


DETERMINATION  OF  WAVE  DIRECTION 


The  direction  of  the  plane  wave  fronts  is  of  vital  importance  if  the 
sea  surface  is  ever  to  be  reconstructed.  To  determine  this  parameter  we 
have  elected  to  discard  mathematical  rigor  in  favor  of  a  more  intuitive 
algorithm.  Consider  the  top  view  of  the  beam  screen  shown  in  Figure  8. 
Note  that  the  spot  shown  is  not  the  laser  spot  but  instead  the  imaginary 
point  of  impact  of  the  unit  normal  to  the  sea  surface.  Further,  consider 
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(c)  60-aecond  data  record. 

FIGURE  6.  Z  Vector  Amplitude  Spectrum. 
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o  3 

(c)  60-second  data  record. 

FIGURE  7.  Truncated  Z  Vector  Amplitude  S^actrum. 
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an  arbitrary  two-dimensional  unit  vector  that  may  point  in  directions 
ranging  from  plus  to  minus  90  degrees,  which  we  shall  refer  to  as  "S(a)", 
the  direction  sense  vector.  If  we  study  the  projection  of  the  unit  normal 
on  the  direction  sense  vector  by  performing  a  dot  product  operation,  we 
could  examine  just  how  siuch  angular  displacement  activity  occurs  along 
that  direction.  Moreover,  if  we  take  the  Fourier  transform  of  this  pro¬ 
jection  and  then  for  a  fixed  frequency,  rotate  the  direction  sense  vector 
until  a  maxima  is  obtained,  we  would  then  obtain  the  direction  of  that 
wave  component.  This  operation  may  be  written  in  mathesmtical  terms  as 
Equation  16: 


|G(f,cr)| 


j5"  £(t)  *  S(a)e'j2nftdt 
o 


where 

N(t)  =  Unit  Normal  to  the  sea  surface 

~S(a)  =  cos(a)T  +  sin(a)T  ♦  (0)k,  directional  test  vector 
a  =  bearing  of  directional  test  vector  (radians) 


(16) 


(17) 


Expanding  the  dot  product  with  the  aid  of  Equation  3  we  obtain  Equa¬ 
tion  18: 


P 

| G(f ,<x) |  =  j  {8in(4>)(cos(0)cos(a)  ♦  sin(6)sin(a)l }e  ^2nftdt  (18) 
o 

or, 


|G(f,a)|  = 


P 

j  sin($(t) ] cos [6(t)  -  a]e‘j2n£tdt 
o 


(19) 


The  direction  of  the  wave  is  then  given  by  maximizing  this  integral  by 
varying  a  for  a  fixed  value  of  temporal  frequency  "1 which  may  be 
written  as  Equation  20: 

,  P  I 


y(f)  =  max 

wrt  a 


1 


sinl$(t)]cos[6(t)  -ale  ^2n£tdt 


fix  f 


o 


(20) 
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It  is  conceded  that  the  foregoing  derivation  is  based  more  in  intui¬ 
tion  rather  than  mathematical  rigor.  However,  the  development  of  this 
algorithm  was  based  on  the  observation  of  numerous  directional  spectrums. 
Note  that  several  directional  spectrums  were  computed  in  5-degree  direc¬ 
tional  steps  for  all  three  data  record  lengths  and  that  multiple  peaking 
was  not  observed.  That  is,  for  each  frequency,  a  well  defined  cosine 
peak  exists.  Thus,  it  is  logical  to  assume  that  the  plane  wave  front  is 
coming  from  the  direction  of  maximum  frequency  activity.  It  is  however, 
important  to  note  that  this  algorithm  is  slope,  not  amplitude,  sensitive 
in  that  we  are  transforming  the  sine  of  unit  normal  elevation  angle. 
This  operation  is  performed  by  the  program  "DIR_FFT"  that  writes  the 
resulting  wave  directions  to  a  data  file.  A  printout  of  wave  directions 
and  frequencies  is  shown  in  Table  1  for  a  17-second  sampling  window.  The 
principal  wave  component  directions  are  commensurate  with  observations 
recorded  at  the  NOSC  Tower. 


DETERMINATION  OF  THE  COMPONENT  WAVELENGTHS 


Determination  of  the  frequency  component  wavelengths  follows  almost 
directly  from  the  Fourier  transform  of  the  spatial  derivatives.  It  has 
been  shown  in  Appendix  B  that  the  magnitude  of  the  Fourier  transform  of 
the  first  spatial  derivative  with  respect  to  x  results  in  Equation  22: 


Zx(f) 


1_ 

T 


3Zo(t) 
3x  I 


p  j  tan[$(t)J  cos[0(t)]e  ^2n£tdt 


s  o 


(21) 


I Zx(f ) |  =  n  lcos(Yjc)sinc(P(kAf  -  fw))|  * 


(22) 


Similarly,  the  magnitude  of  the  Fourier  transform  of  the  first  spatial 
derivative  with  respect  to  y  results  in  Equation  23: 


/  N  C  \ 

IZy(f)|  =  n  ^-^-^||sin(yk)sinc(P(kAf  -  fw))l  * 


(23) 


The  spectrums  of  both  spatial  derivatives  are  computed  by  the  pro¬ 
gram  "SPEC_DERIV. " 


NVC  TP  6842 


TABLE  1.  Bearings  of  Frequency  Cosiponents. 


lilitin  contribution,  X 


Now  if  we  divide  Equation  14  by  Equation  23  and  solve  for  the  wavelength 
we  obtain  Equation  24: 


20(f) 


2x(o 


=  2n  sin 


(Y)| 


Kw 

£y(f) 


(24) 


Equation  24  provides  the  wavelength  for  each  frequency  component  in 
the  spectrum.  The  results  of  the  above  equations  have  been  compared  to 
known  equilibrium  wavelengths  of  gravity  waves,  that  is  Equation  25: 


L 


(5 . 12)T2(feet) 
P 


(25) 


where 


T 

P 


=  wave  period  (seconds) 


The  results  have  been  invariably  in  the  correct  order  of  magnitude  for 
temporal  frequencies  in  excess  of  0.117  hertz.  Below  this  frequency  the 
deflection  of  the  laser  beam  is  less  than  0.25  inch,  the  quantization 
step  size  of  the  wave  computer  central  processor.  Moreover,  if  the  model 
adopted  is  to  be  regarded  as  consistent,  by  Equation  24  the  following 
identity  must  bold  true: 


I  Y(f)l 


tan 


-1 


Zy(f) 

Zx(f) 


(26) 


The  angular  quantity  in  Equation  26  was  computed  and  compared  to  the 
iteratively  determined  wave  direction  given  by  Equation  20.  For  all  fre¬ 
quencies  below  3  hertz,  Equation  26  provided  the  angular  results  of 
Equation  20  resolved  to  the  first  trigonometric  quadrant. 

With  the  wavelength  known  the  wave  component  velocity  follows  simply 
by  the  relation  given  in  Equation  27: 
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The  operation  of  determining  wave  amplitude,  wavelength,  and  velocity  is 
performed  by  the  program  "MAKE_MODEL" ,  which  writes  all  relevant  wave 
model  data  to  a  hard  disk  file  for  later  use.  A  printout  of  sea  surface 
modeling  parameters  is  shown  in  Table  2  for  the  case  of  a  60-second  data 
record . 


RECONSTRUCTION  OF  THE  SEA  SURFACE 


With  all  the  necessary  sea  surface  model  coefficients  determined,  it 
is  a  simple  matter  to  reconstruct  the  sea  surface.  Selecting  arbitrarily 
a  time  t  =  0,  we  need  only  evaluate  the  series  model  for  all  points  in  a 
square  spatial  coordinate  system  for  as  many  frequency  components  as  we 
wish  to  consider.  This  operation  is  performed  by  the  program  "MAKE_ 
WAVES,"  which  also  allows  the  option  of  writing  the  sea  surface  to  hard 
disk  for  later  retrieval.  Graphic  display  of  the  stored  sea  surface  may 
be  performed  by  the  program  "VIEW_SEA."  All  software  used  in  this  effort 
is  included  in  Appendixes  C  through  E.  What  follows  is  a  presentation 
and  discussion  of  several  reconstructed  sea  surfaces  of  various  spatial 
areas  and  data  record  lengths. 


DISCUSSION  OF  RESULTS 


Figures  9(a)  through  (c)  show  a  reconstruction  of  100  square  feet  of 
sea  surface  based  on  data  record  lengths  of  17,  34,  and  60  seconds, 
respectively.  These  three  images  demonstrate  the  wave  computer's  remark¬ 
able  ability  to  capture  and  reproduce  detailed  sea  surface  microstructure 
information.  The  accuracy  and  validity  of  the  image  definitely  increases 
with  longer  data  records,  as  evidenced  by  the  views  in  Figures  10  and  11. 
It  should  be  noted  that  the  photograph  in  Figure  10  is  not  of  the  sea 
surface  that  we  measured  but  rather  of  the  sea  early  the  next  morning. 
It  is,  however,  rather  close  based  on  spotlight  observations  while  the 
test  was  in  progress.  The  images  shown  in  Figure  12(a)  through  (c)  pre¬ 
sent  an  area  of  625  square  feet  of  reconstructed  sea  surface  for  various 
data  record  lengths.  At  this  point  in  the  spatial  extension  it  becomes 
apparent  that  something  is  wrong  with  the  60-second  data  record  repro¬ 
duction  shown  in  Figure  12(c).  That  is,  there  seems  to  be  some  peculiar 
stepping  phenomena  occurring  along  the  far  east-west  axis.  It  is  the 
author's  opinion  that  this  error  is  the  result  of  shallow  sloped  wave 
quantization  errors  becoming  apparent. 
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Frequency, 

hertz 


Amplitude, 

feet 


Phase, 

degrees 

Bearing, 

degrees 

Wavelength 
measured,  ft 

♦180.8 

•109.0 

3. 10C*01 

•101.0 

*149.0 

2.21C*tl 

•  12.0 

•1*0.0 

2.38C*01 

-133.4 

-170.0 

4, 188*81 

-170.0 

-199.0 

3. Ilf *81 

•44.4 

-1*9.0 

1.28C*02 

-9). 4 

-170.0 

0.97C.81 

-1*4.1 

•1*0.0 

1.24E*t2 

-88.7 

•130.0 

4.20E*81 

•149.0 

-180. C 

7. 19C*81 

♦  77.2 

•1*0.0 

l.«8C*82 

•99.3 

•170.0 

7.9*E*61 

•28.1 

*170.0 

O.«1E*01 

-119.9 

-190.0 

3.79C*81 

-173.0 

♦179.0 

9. 006.01 

•94.1 

-170.0 

3.78E*61 

•149.0 

-140.0 

?.*9£.*1 

•99.1 

•139.0 

9.946*81 

*122.9 

-100.0 

1.47E*01 

-73.9 

-130.0 

2.7*C<91 

♦129.9 

-190.0 

* . 7*E*0O 

-108.4 

•  99.0 

3.246.01 

-129.4 

•109.0 

1.7*6*81 

•190.7 

•149.0 

2. *06*01 

•100.1 

♦  179.0 

7.796.01 

-30.2 

*130.0 

1.4*6.01 

-11.9 

-99.0 

4.0*E«01 

-27.9 

♦119.0 

4.436.01 

-139 .4 

-140.0 

2.076.01 

♦12*. 1 

•  99.0 

8 . 09E • 00 

-173.7 

-139.0 

2.39E.01 

•194.0 

•149.0 

1. 396*01 

-91.2 

•149.0 

2.90E.02 

- 1*0 . 0 

-139.0 

9.8*6.00 

•  49.9 

♦1*9.0 

2.00E.01 

•92.4 

•99.0 

3.046*01 

♦31.8 

•120.0 

2.33E*01 

•90.0 

-139.0 

4 . *36*01 

-71.0 

-179.0 

1 .*3E*01 

-1*9.8 

♦149.0 

4.1*6*01 

•93.0 

•1*9.1) 

3. 136*01 

•101.7 

•1*0.0 

1 .976.01 

-3.0 

-170.0 

6. 096*00 

•79.7 

-99.0 

1.896*01 

♦129.9 

•120.0 

9. 306*00 

-129.9 

-180.0 

9. *76*00 

-  *9  .  e 

♦120. 0 

7.72E»00 

•142.* 

-1*9.0 

1.776* ul 

-119.7 

-130.0 

2.0*6*01 

•1*8.1 

•1*9.0 

1.206*01 

♦92.8 

•190.0 

*.0*6*00 

-33.3 

•110.0 

9. *26*00 

-110.2 

•170.0 

3.916*00 

-*4.3 

•129.0 

3.916*00 

-119.4 

-160.0 

3.1*6*00 

-133.8 

-139.0 

1 . l*£*0i 

•7*.  9 

-110.0 

1.3*6*01 

•148 .9 

-140.0 

7.306*00 

-132.9 

•1*0.0 

2.126*00 

♦113.7 

•139. fc 

4.446*00 

-196.3 

•109.0 

1.196*01 

-  1*  .  0 

-1*9.0 

9.746*ii0 

-93.0 

-100.0 

1.796*00 

-171.2 

♦130.0 

7.896*00 

-47.9 

•99 . 0 

2.936*01 

-170.1 

•110.0 

*.426*00 

♦110.9 

•190.0 

*.036*00 

•70.6 

-  170. 0 

3.436*00 

•133.6 

-100.0 

4.946*00 

-39.0 

-  190. 0 

8.0*6*00 

Wavelength 
theoretic*!,  ft 

MK*» 

«.97C*a3 

1.49E»03 

9.946*02 

i.tX't} 

4.876*02 

3.73E*02 

2.996.02 

2.396*02 

1.976*02 

1. «4t>l2 
1.416*02 
1.226*02 
1.8*6*02 
9.32£*0l 
8.2*6*01 
7.3*6.01 
*.*16*01 
9.976*01 
9.4lC*81 
4.936*01 
*.9lE*01 
*.146*01 
3.02E.O1 
3.936*01 
3.276*01 
3.046*01 
2.046*01 
2.49E-01 

2. *0E*O1 
2.3>E*01 
2. 19E-01 
2.0*6*01 
1.996*01 
1.846*01 
1.746*01 
l.*9E*01 
1.976*01 
1.496*01 
1.426*01 
1.3*6-01 
1.296*01 
1.236*01 
1 . 186*01 
1 . 136*01 
t . 006*01 
1.046*01 
9.946 *00 
9.946*00 
9.17E*00 
8. 826*01 
8.496*00 
8.106*00 
7.096*00 
7. *16*00 
7.34E*0fc 
7. 0*6*00 
*.896*00 
*.*36*00 

6 . 4  16  -  0  l> 

*  .  2 1 6  •  0  C 
e . 016*00 
9.836*00 
9.e96*0 0 
9.486*0 0 
9.326*00 
9.i*e*oo 
9 . 0 IE*  00 


(a)  NOSC  tower  wave  computer  data  2/13/85;  reel  +3  footage 
1190;  17  seconds;  maximum  cre3t  to  trough  depth  is  0.6  foot; 
aspect  angle  is  70  degrees;  z  axis  gain  is  6. 


(b)  NOSC  tower  wave  computer  data  2/13/85;  reel  +3  footage 
1190;  34  seconds;  maximum  crest  to  trough  depth  is  0.4  foot; 
aspect  angle  is  70  degrees;  z  axis  gain  is  6. 


(c)  NOSC  tower  wave  computer  data  2/13/85;  reel  +3  footage 
1190;  60  seconds;  maximum  crest  to  trough  depth  is  0.4  foot; 
aspect  angle  is  70  degrees;  z  axis  gain  is  6. 


FIGURE  9.  Reconstructed  Sea  Surface,  100  Square  Feet. 


FIGURE  10.  Southeastern  View  of  Sea  Surface 
From  NOSC  Tower  Railing. 
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FIGURE  II.  Soutbeaatern  View  of  Sea  Surface 
Fron  NOSC  Tower. 
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Taking  this  spatial  extension  to  the  limit  we  find  roughly  an  acre 
(40,000  square  feet)  of  reconstructed  sea  surface  in  Figure  13(a)  through 
(c).  Here  the  wave  computer  errors  become  quite  eminent.  Unlike  the 
foregoing  images,  there  is  little  correlation  between  wavelengths  and  wave 
directions  for  various  data  record  lengths.  Moreover,  the  longer  wave¬ 
length  structure  is  not  commensurate  with  observations  recorded  at  the 
Tower.  This  suggests  that  the  wave  computer  has  difficulty  in  measuring 
and  reproducing  longer  wavelength  information. 

There  is,  however,  a  quite  reasonable  explanation  for  this  phe¬ 
nomena.  As  noted  earlier,  the  first  principal  frequency  component  in 
the  "Z"  spectrum  shown  in  Table  2  occurs  at  about  0.059  hertz.  By  the 
gravity  wave  formula  this  would  correspond  to  a  wavelength  of  1471  feet 
long,  which,  with  an  amplitude  of  1  foot,  yields  roughly  a  maxi¬ 
mum  slope  of  0.005.  If  the  wave  was  as  much  as  2  feet  from  the  beam 
screen,  this  would  correspond  to  a  laser  beam  deflection  of  0.24  inch. 
The  wave  computer  quantizes  the  position  of  the  laser  spot  in  steps  of 
0.28  inch,  a  characteristic  of  the  8-bit  words  used  in  the  X  and  Y  vec¬ 
tors.  This  introduces  devastating  quantization  errors  at  frequencies 
below  0.117  hertz.  This  is  evidenced  by  the  measured  wavelengths  diver¬ 
ging  from  the  theoretical  wavelengths  shown  in  Table  2.  This  evidence 
is  somewhat  questionable  in  that  the  N0SC  Tower  is  on  the  edge  of  the 
continents1  shelf  in  only  50  feet  of  water,  and  contraction  and  distor¬ 
tion  of  wavelengths  from  the  basin  effect  is  eminent. 


CONCLUDING  REMARKS 


The  wave  computer  has  the  potential  of  providing  accurate  informa¬ 
tion  on  the  microstructure  of  the  sea  surface.  However,  its  ability  to 
measure  and  reconstruct  long  wavelength  (low  frequency)  information  is 
questionable.  It  would  seem  simple  enough  to  increase  the  word  size  of 
the  X  and  Y  vectors  from  8  to  10  bits  snd  modify  the  beam  screen  for 
more  precision  measurements.  This  would  eliminate  problems  associated 
with  hardware  inadequacies,  but  it  would  not  address  limitations  of  the 
data  reduction  algorithm  »lf.  That  is,  this  entire  plane  wave  super¬ 
position  model  may  behave  much  like  a  Taylor's  Series  with  its  own  radius 
of  convergence.  Thus,  there  is  a  possibility  that  enhancing  the  per¬ 
formance  of  the  equipment  could  result  in  no  additional  information. 

This  is  not  to  say  that  the  information  obtained  is  useless.  More 
often  than  not  system  designers  are  concerned  with  microstructure  rather 
than  with  long  wavelength  swells.  Moreover,  the  introduction  of  swells 
into  the  existing  mathematical  model  would  be  a  comparatively  Bimple 
task.  The  author  does  not  wish  to  imply  that  all  the  necessary  work  has 
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(c)  NOSC  tower  wave  computer  data  2/13/85;  reel  ♦ 3  footage 
1190;  60  seconds;  maximum  crest  to  trough  depth  is  2.5  feet; 
aspect  angle  is  70  degrees;  2  axis  gain  is  10. 

FIGURE  13.  Reconstructed  Sea  Surface,  40,000  Square  Feet. 
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been  completed  to  make  this  model  a  reliable  standard  for  a  simulation 
laboratory.  There  still  remains  considerable  theoretical  analysis,  which 
involves  treating  the  wave  model  parameters  as  random  variables  to  deter¬ 
mine  an  optimal  data  record  length.  Additionally,  exhaustive  field  test¬ 
ing  employing  parallel  redundant  imaging  of  the  sea  surface  is  mandatory. 
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Appendix  a 

WAVS  CONFUTES  THEORY  OP  OPERATION 

(1)  Sync  Strip  and  Threshold  Processing  Card 

(2)  Pulse  Generation  Logic  Card 

(3)  X  Vector  Logic  Card 

(4)  Y  Vector  Logic  Card 

(5)  Blanking  Interval  Disable  Card 

( 6 )  Dead  Pixel  Rejection  Card 

(7)  Capacitive  Probe  Subsystem 
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OVERVIEW 

The  fundamental  instrument  in  this  sea-surface  measurement 
effort  is  the  wave  computer  system.  This  system  consists  of  a 
video  vectoring  system  and  a  parallel  capacitive  probe  network. 
The  video  vectoring  system  is  responsbile  for  determining  the 
position  of  the  Laser  spot  from  the  composite  video  signal  of 
the  monitoring  video  camera.  The  capacitive  probe  subsystem  is 
responsible  for  reporting  the  vertical  elevation  of  the  sea 
n.rface  at  the  point  of  impact  of  the  laser  beam. 


(1)  SYNC  STRIP  AND  THRESHOLD  PROCESSING  CARD 

Figure  A-l  is  a  circuit  schematic  of  the  Sync  Strip  and 
Threshold  Processing  Card  (Card  1)  of  the  wave  computer  system. 
Thi 8  card  is  responsible  for  amplifying  the  video  signal, 
detecting  the  occurrence  of  the  laser  spot,  and  stripping  off 
the  horizontal  and  vertical  sync  pulses  for  reference  purposes. 
The  incoming  video  signal  is  buffered  by  the  amplifier  shown  by 
label  A.  From  this  point  the  signal  is  split,  and  by  label  F  a 
clamping  network  facilitates  the  stripping  of  the  horizontal 
sync  pulses  and  the  integrator  shown  by  label  G  determines  the 
location  of  the  vertical  sync  pulses.  These  signals  are  used  to 
reference  the  X  and  Y  vector  counters,  the  dead  pixel  inhibit 
counters,  and  the  blanking  interval  disable  circuitry.  The 
upper  path  of  the  composite  video  signal  is  then  fed  into  an 
amplifier  at  label  B  where  its  amplitude  is  boosted  about  four¬ 
fold.  At  this  point  the  signal  is  again  split  with  the  lower 
half  being  used  to  establish  a  dynamic  threshold  at  label  C. 
When  the  composite  video  signal  is  on  a  visible  portion  of  the 
video  line,  the  network  shown  by  label  C  performs  as  a  low  pass 
filter  with  a  corner  frequency  of  3.2  kHz  and  a  gain  of  -6  dB. 
However,  during  the  blanking  interval  of  the  video  signal,  the 
analog  switch  converts  this  network  into  a  track-and-hold  cir¬ 
cuit,  thus  holding  the  last  analog  level  experienced  before  the 
end  of  the  video  line.  This  allows  the  threshold  level  to  track 
changing  gray  levels  in  the  video  background.  This  threshold 
level  (THL)  is  then  fed  into  the  comparator  shown  by  label  E 
where  it  is  compared  to  the  incoming  video  signal.  A  pulse  is 
then  output  by  this  comparator  when  the  threshold  is  crossed, 
which  shall  be  referred  to  as  threshold  crossing  ( THC ) . 


(2)  PULSE  GENERATION  LOGIC  CARD 

Turning  our  attention  to  Figure  A-2  we  find  the  Pulse 
Generation  Logic  Card  (Card  2).  This  card  is  responsible  for 
generating  clock  pulses  for  the  X  and  Y  vectors  to  count  and  to 
inhibit  false  threshold  crossings.  The  central  wave  computer 
16-MHz  reference  clock  is  shown  by  label  A.  The  clock  is  then 
split  and  one  branch  is  divided  by  four  as  shown  by  label  B  to 
yield  the  horizontal  count  puises  (HCP)  for  the  X  vector  and  a 
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threshold  window.  The  threshold  window  prohibits  vector  locking 
during  the  interval  in  which  the  vectors  are  transient.  The 
other  branch  of  the  split  signal  is  then  fed  into  an  elaborate 
divide-by-10 , 500  counter  that  outputs  a  15,238-hertz  clock, 
which  constitutes  the  vertical  count  pulses  (VCP)  for  use  by 
the  Y  vector.  Referring  now  above  label  E,  the  incoming  thresh¬ 
old  crossing  signal  { THC )  is  gated  by  the  threshold  inhibit 
signal  (THIN)  that  precludes  the  locking  of  data  vectors  in  an 
area  known  to  be  in  a  blanking  interval  or  dead  pixel  location. 
When  a  valid  threshold  crossing  is  experienced,  the  D-type 
flip-flop  is  set,  which  locks  the  X  and  Y  data  vectors  in  the 
adjacent  cards.  At  the  same  time,  a  one-shot  is  fired  output¬ 
ting  a  25-microsecond  interrupt  pulse  informing  external 
devices  that  data  has  been  acquired.  Labels  F  and  G  indicate 
buffers  and  line  drives  used  to  strengthen  these  signals  for 
external  transport. 


(3)  X  VECTOR  LOGIC  CARD 

Figure  A-3  is  the  X  Vector  Logic  Card  (Card  3).  This  card 
is  responsible  for  locking  in  the  correct  X  or  horizontal  coor¬ 
dinate  of  the  laser  spot  when  a  valid  threshold  crossing  has 
been  detected.  Referring  now  to  label  A  we  find  two  cascaded 
4-bit  counters  that  count  the  horizontal  count  pulses  (HCPB) 
and  are  reset  at  the  beginning  of  each  video  line  by  the  hori¬ 
zontal  sync  pulse  (HSB).*  At  label  B  we  find  two  4-bit  latches 
that  lock  in  the  current  value  of  these  counters  when  a  valid 
threshold  crossing  occurs.  The  output  of  these  latches  is  then 
fed  into  a  D/A  converter  shown  by  label  C,  which  converts  this 
digital  X  vector  into  an  analog  signal  that  is  denoted  as  x(t). 
This  analog  signal  is  then  split,  with  one  branch  going  to  the 
panel  meter  for  calibration  purposes  and  the  other  being  output 
to  a  BNC  jack  for  recording  on  the  instrumentation  tape  recor¬ 
der.  This  card  ideally  updates  its  output  60  times  a  second; 
however,  if  no  valid  threshold  crossing  occurs,  this  card  will 
hold  onto  the  last  X  coordinate  it  observed. 


(4)  Y  VECTOR  LOGIC  CARD 

Referring  to  Figure  A-4  we  find  the  Y  Vector  Logic  Card 
(Card  4).  This  card  operates  in  the  exact  same  fashion  as  the  X 
Vector  Logic  Card  only  with  different  inputs.  Instead  of  count¬ 
ing  horizontal  count  pulses,  the  Y  Vector  Card  counts  vertical 
count  pulses  (VCPB).  Also,  rather  than  the  counters  being  reset 
at  the  beginning  of  each  video  line,  the  counters  are  reset  at 
the  beginning  of  each  video  field  by  the  vertical  sync  pulse 
( VSB ) .  Other  than  these  differences,  the  operation  of  these 
cards  is  identical. 


*  In  this  appendix,  "Bn  in  an  abbreviation  indicates 
buffered. 
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(5)  BLANKING  INTERVAL  DISABLE  CARD 

Figure  A-5  is  the  Blanking  Interval  Disable  Card  (Card  5). 
This  card  is  responsible  for  outputting  a  pulse  when  the 
monitoring  video  camera  is  in  a  blanking  interval  or  scanning 
over  a  dead  pixel.  The  card  is  divided  into  two  independent 
horizontal  and  vertical  channels  each  of  which  is  responsible 
for  outputting  its  corresponding  blanking  signal.  Label  A  shows 
the  horizontal  sync  pulse  ( HSB ) ,  which  sets  the  flip-flop  that 
enables  the  counters  shown  by  label  C  to  start  counting  hori¬ 
zontal  count  pulses  (HCPB)  at  the  beginning  of  the  current 
video  line.  When  the  counter  time  runs  out,  the  carry  bit  is 
set,  which  in  turn  fires  a  one-shot  that  resets  the  counter 
enable  flip-flop  and  also  fires  an  adjacent  one-shot.  The 
latter  one-shot  outputs  a  pulse  that  is  denoted  as  the  horizon¬ 
tal  blanking  disable  pulse  ( HBD ) .  The  vertical  blanking  disable 
pulse  ( VBD )  is  generated  in  much  the  same  manner  using  only 
different  input  signals.  These  two  blanking  interval  disable 
signals  are  then  ORed  together  to  yield  the  threshold  abort 
signal  (THA),  which  controls  switching  of  the  dynamic  threshold 
of  Card  1.  Lastly,  dead-pixel  coordinates  are  entered  from  Card 
6  and  ORed  with  the  blanking  interval  signals,  which  then 
provide  the  threshold  inhibit  signal  (THIN).  The  THIN  signal  is 
used  to  inhibit  false  threshold  crossings  on  Card  2. 


(6)  DEAD  PIXEL  REJECTION  CARD 

Turning  our  attention  to  Figure  A-6  we  find  the  Dead  Pixel 
Rejection  Card  (Card  6).  This  card  is  responsible  for  finding 
and  indicating  the  video  scanning  of  a  dead  pixel.  The  detec¬ 
tion  phase  of  operation  is  initialized  by  the  depression  of  the 
Reset  Switch  shown  by  label  G.  When  this  mode  is  invoked,  the 
RAH  chip  shown  by  label  E  is  placed  in  the  write  mode  with  the 
address  lines  tied  to  a  surrogate  Y  vector  counter  and  the  data 
lines  are  tied  to  logical  highs.  Thus,  the  hexadecimal  quantity 
$FF  is  written  into  the  first  page  (256  words)  of  the  RAM  chip 
in  one  video  frame.  The  dead  pixel  locations  are  then  mapped  by 
depressing  the  Search  Switch  also  shown  by  label  G.  In  the 
search  mode,  all  threshold  crossings  in  a  dark  background  are 
assumed  to  be  dead  pixels.  The  surrogate  X  and  Y  vectors  shown 
by  labels  B  and  A  are  locked  into  the  8-bit  latches  shown  by 
the  labels  D  and  C,  respectively,  when  a  threshold  signal  is 
sensed.  During  the  next  vertical  blanking  interval,  the  coor¬ 
dinates  of  the  first  encountered  dead  pixel  are  written  into 
memory  with  the  Y  vector  constituting  the  address  and  the  X 
vector  constituting  the  data  element.  Thus,  this  system  permits 
the  mapping  of  only  one  dead  pixel  per  video  line.  Once  the 
dead  pixels  have  been  mapped,  the  card  defaults  to  the  inhibit 
mode.  In  this  mode  of  operation,  the  Y  vector  continuously 
sweeps  the  address  lines  of  the  RAM  chip  that  outputs  the  loca¬ 
tion  of  the  dead  pixel  for  that  line.  When  the  X  vector  counts 
up  to  the  X  coordinate  output  by  the  RAM  data  lines,  the 
digital  comparators  shown  by  label  F  output  a  pulse  that  is 


I 


NWC  TP  6842 

referred  to  as  the  dead  pixel  inhibit  signal  (DPIN).  The  DPIN 
signal  is  then  ORed  with  blanking  interval  disable  signals  to 
generate  the  threshold  inhibit  signal  (THIN),  which  is  used  to 
disable  false  threshold  crossings  on  Card  1.  It  should  be  noted 
that  if  no  dead  pixels  occur  on  a  specific  video  line,  the  RAM 
chip  outputs  a  hexadecimal  $FF  that  corresponds  to  somewhere  in 
the  horizontal  blanking  interval,  and  thus  no  comparator  output 
is  possible. 


(7)  CAPACITIVE  PROBE  SUBSYSTEM 

The  Capacitive  Probe  Subsystem  is  responsible  for  reporting 
the  elevation  of  the  sea  surface  at  the  point  of  contact. 
Although  five  probes  were  initially  deployed,  that  is,  in  the 
center  and  on  each  corner  of  the  beam  screen,  only  the  center 
probe  was  used  in  the  data  reduction  phase.  Referring  now  to 
Figure  A-7(a)  we  find  a  circuit  schematic  of  a  single  channel 
of  the  Capacitive  Probe  Subsystem.  Focusing  our  attention  on 
label  A  we  find  the  1-MHz  central  capacitive  probe  reference 
clock.  This  transistor-transistor— logic  level  ( TTL )  clock  is 
then  divided  down  to  10  kHz  by  the  counters  shown  by  label  B. 
The  10-kHz  clock  is  then  boosted  to  a  +15-volt-CMOS  logic  level 
by  the  comparator  shown  by  label  C.  At  label  D  we  find  the  core 
of  the  system,  a  CMOS  monostable  one-shot  whose  output  pulse 
duration  is  dependent  on  the  capacitance  across  its  terminals 
labeled  pin  numbers  1  and  2.  The  capacitive  probes  themselves 
constitute  coaxial  cables  using  the  sea  surface  for  an  outer 
conductor.  Thus,  the  capacitance  perceived  at  the  terminals  is 
dependent  solely  on  the  elevation  of  the  sea  surface,  which 
determines  the  duration  of  the  output  pulse.  It  should  be  noted 
that  the  transistor  diode  network  shown  by  label  E  is  used  to 
squelch  the  residual  energy  trapped  in  the  LC  tank  circuit 
indigenous  to  the  capacitive  probe.  This  is  done  by  shorting 
the  probe  to  ground  during  the  first  5  microseconds  of  the  dead 
cycle.  Referring  now  to  label  F  we  find  a  four-pole  160-hertz 
low-pass  filter  that  performs  the  role  of  an  integrator  of 
these  one-shot  output  pulses.  The  result  at  label  G  is  then  a 
buffered  DC  level  directly  proportional  to  the  elevation  of  the 
sea  surface.  This  signal  is  then  transported  to  a  simple  offset 
and  scaling  operational  amplifier  (Figure  A-7(d))  for  calibra¬ 
tion  before  it  is  recorded  on  the  instrumentation  recorder.  In 
Figures  A-7(b)  and  A-7(c)  the  full  five-channel  capacitive 
probe  circuit  schematic  is  shown. 
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^  ^  FIGURE  A-4.  Y  Vector  Logic  <C«nl  4). 


FIGURE  A -5.  Video  Signal  Discrimination  Card  (Blanking  Interval  Disable  Card.  Card  5). 


FIGURE  A-?.  Capadtire  Probe  Subcyitem  Schematic. 


FIGURE  K  7. 


FIGURE  At.  (Camtd). 
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Appendix  B 

FOURIER  THEORETICAL  PROOFS 

(1)  Fourier  Transform  of  Sea  Surface  Elevation 

(2)  Fourier  Transform  of  Spatial  Partial  Derivatives 
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(1)  FOURIER  TRANSFORM  OF  SEA  SURFACE  ELEVATION 

In  this  section  of  Appendix  B  we  will  derive  the  Fourier  transform 
of  the  sea  surface  elevation.  All  variables  used  here  are  defined  in  the 
body  of  the  report.  We  begin  this  derivation  by  direct  application  of 
the  Fourier  transform  to  our  sea  surface  model.  Thus, 
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Expanding  the  cosine  term  we  obtain. 
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Defining  the  integrals, 
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We  may  now  write, 


n-  1 

F{Z0(t)}  =  Cn[co8(»|<n)I1(u))  +  sin(*|»n)I2(u») J 


(B-5) 


Now  consider  the  integral, 
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Now  with  u»  s  2rtf  we  may  further  write, 


(  ain[«P(f  -f)]  sinlnP(f  +f)] 
Il(£)  =  j  2ntfn-f]  +  2n[fn-f) 


By  exploiting  the  definition  of  the  sine  function,  that  is, 


8inc(Z)  = 


we  may  now  write  Equation  B-8  as , 
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In  a  similar  manner  it  is  easily  shown  that  the  second  defined  integral 
results  in, 
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I2(f)  =  |j  sinc[P(fQ  -  f)]  -  |y  sinc[P(fn  +  f)] 


(B-12) 


If  we  consider  only  the  sine  terms  of  Equations  B-10  and  B-12  that  peak 
for  positive  frequencies  and  substitute  them  into  Equation  B-5  ve  obtain, 


!  N-l 

]  F{Zo(t)}  Cn  !  sinclP(fn  “  C°8<V  2j 

!  n=0 

+  |j  sinclP(fQ  -  f)]  sin(4>Q)  |  (B-13) 

i 
i 
l 

N-l 

F{Zo(t) }  = 

u=0 

At  this  point  some  critical  assumptions  must  be  made  to  isolate  spectral 
components.  Consider  the  sine  pulse  shown  in  Figure  B-l(a).  The  spectral 
line  of  a  wave  component  (shown  as  a  vertical  arrow)  may  be  anywhere  on 
the  frequency  axis.  The  dots  on  the  frequency  axis  would  be  points 
tested  by  our  discrete  Fourier  transform.  Note  that  the  point  tested  in 
Figure  B-l(a)  may  also  include  the  sine  weighted  contribution  of  another 
spectral  line.  However,  if  one  considers  protracting  the  period  of 
observation,  we  obtain  much  less  interference  from  adjacent  spectral 
lines  as  shown  in  Figure  B-l(b).  If  we  were  to  extend  this  period  of 
observation  "P"  to  an  optimal  length,  all  terms  except  for  the  tested 
point  would  tend  toward  zero,  as  shown  in  Figure  B-l(c). 
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With  the  assumption  of  an  optimal  observation  period,  and  evaluating 
Equation  B-14  at  some  arbitrary  frequency  step,  say  f  =  f^,  all  terms  in 
the  series  with  the  exception  of  the  tested  point  would  tend  toward  zero, 
leaving  us  with, 

F{ZQ(t)}  =  sinc{P(fn  -  ffc)]  fcosOJO  -  jsin(4#k) ;  (B-15) 

f,. 

By  taking  the  magnitude  of  Equation  B-15  and  assuming  that  the  sine  term 
is  very  close  to  unity  we  obtain, 


PC  re 

F{Zo(t)}  =  |cos(4>k)  -  jsin((J>k)|  =  (B-16) 


The  last  step  of  this  process  entails  the  proper  weighting  of  this  spec¬ 
tral  component.  That  is,  we  are  not  taking  a  true  Fourier  integral 
transform  of  this  data.  Instead,  we  are  approximating  this  operation 
with  a  discrete  Fast  Fourier  Transform  (FFT) .  Ideally,  with  all  quanti 
zation  errors  aside,  this  should  differ  from  the  Fourier  integral  trans¬ 
form  by  the  quantized  temporal  differential,  that  is, 
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where 

Np  =  number  of  points  ii*  the  FFT 

Equation  B-17  is  the  final  result  referenced  in  the  body  of  the 
report. 


(2)  FOURIER  TRANSFORM  OF  SPATIAL  PARTIAL  DERIVATIVES 

In  this  section  we  will  be  taking  the  Fourier  transform  of  the  first 
spatial  partial  derivative  of  the  sea  surface  elevation  with  respect  to 
"x."  We  will  then  extend  the  results  to  determine  the  Fourier  transform 
of  the  first  spatial  partial  derivative  of  the  sea  surface  with  respect 
to  "y."  We  begin  the  derivation  by  differentiating  the  sea  surface  model 
with  respect  to  "x." 
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Differentiating  with  respect  to  "x"  and  evaluating  at  origin  we  obtain, 
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Expanding  the  temporal  sinusoid  we  obtain, 
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Applying  the  Fourier  transform  to  Equation  B-20  then  results  in, 
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Interchanging  the  order  of  integration  and  summation  and  temporally 
windowing  our  transform,  we  obtain, 
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Forturitely,  we  have  already  determined  the  integrals  I.(u>)  and  I_(u>) 
earlier  in  this  appendix  (Equations  B-10  and  B-12,  respectively) .  Again 
by  considering  only  positive  frequency  sensitive  sinr  functions  we  may 
write  Equation  B-23  as, 
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On  the  basis  of  the  earlier  optimal  observation  period  argument,  we 
may  evaluate  Equation  B-24  at  a  specific  frequency,  f.  ,  and  extract  its 
magnitude  yielding. 
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Again,  we  must  scale  this  Fourier  integral  transform  by  the  quantized 
differential  so  that  our  results  will  be  commensurate  with  our  FFT  opera¬ 
tion.  Thus, 
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Equation  B-26  is  the  final  form  of  the  spectral  component  referred  to  in 
the  body  of  the  report. 


We  are  now  in  a  position  to  extend  the  results  of  the  Fourier  trans¬ 
form  to  3Z  (t)/3x  to  3Z  (t)/9y.  Again,  we  will  begin  by  differentiating 
the  sea  surface  model. 
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Differentiating  with  respect  to  "y"  and  evaluating  at  origin  yields, 
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Comparing  Equation  B-30  with  Equation  B-20  it  becomes  clear  that  the  two 
differ  only  by  a  sin(Yn)  in  place  of  a  cos(yq)-  Since  this  sole  differ¬ 
ence  in  form  is  but  aQ  constant  that  may  be  pulled  out  of  the  Fourier 
transform  operation,  we  may  conclude  that, 


zy(fk) 


nN  C. 

JL  k 


|sin(Yv)l 


(B-31) 


Equation  B-31  is  the  final 


form  referred  to  in  the  body  of  the  report. 
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Appendix  C 

FIELD  TEST  DATA  INTERFACING  SOFTWARE 
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31  Aug  1337  23 1 21 1 33 

iaee  )••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

1*10  I aas*aaaaaSBSaaasaB»*saaass  PROGRAM  SEn  LINK  s*assasas*ss*asasasaaaaaass 
1030  laSaSsaaSaSasasaSa*s*asaaaaSaaaasS»aaaaSSSasaaasaaSaSsassaaaaBBaaeBeSaBB 
1030  !•  THIS  . PR0GR3M  13  A»«*‘  A1BLE  FOR  CONTROLLING  THE  HP6942A  • 

1040  IB  MULT I PROGRAMMER  «  N  THA*  COMPUTER  BATA  PROA  TNI  HONRYMELL  • 

1090  >•  INSTRUMENTATION  ft.  £  RECOV  S  CORRECTLY  DIGITIZED  ,  0CALED  AND  • 

1060  )•  STORED  ON  DI0K  FOR  LATER  E  ..  .'AL  .  • 

1070  t •44444444444*4444444444444444444444444 

1000  DIN  T<3000> , K<3000> , Y<30S9> , 2<500B> ,  B<3000> , Cards*! 12) , F«nc (4) 

1090  CON  sRead  memory/  X  seals, Y  4C4ta(2  seals 
1100  DIN  Naa*«7l(l, JobJClS) 


1110  l4**4e4«44**»«44**44*«*44*»44«44*44444444S44*4»44444444444444 

1120  <SBBBB#BBBBBSBB  DEFINITION  OF  PROCRAN  VARIABLES  bbbbbbbbbbbbb 

1130  |444**4*44*44*44**444**4«»**«*44*444444««444»4*44444444444444 

1140  CardS0a* 1 , 3,3, t, 7,0*  t  DEFINE  ACTIVE  AULT IPROGRANNER  CARDS. 
1190  Hplb-323  I  MAIN  NP1B  AULT IPROGRANNER  ADDRESS. 

1160  Hplb  bI»3230S  I  DEFINE  'MEMORY  INPUT'  SUB* ADDRESS. 

1170  Hp 1 b— I nt *32309  I  INTERRUPT  AULT  I PROGRANAER  SUD-ABDRESS. 

1100  F  lupli-M  I  DEFINE  NEAN  SAAPLE  RATE  OF  PROCESS. 


1190  X  seal ••1.9913^200  I  DEFINE  'X'  VECTOR  SCALE  FACTOR  . 

1200  Y~scale«2. 1213/200  I  DEFINE  'Y'  VECTOR  SCALE  FACTOR  . 

1210  Z~scale-9. (96/2000  I  DEFINE  ' 2 '  VECTOR  SCALE  FACTOR  . 

1220  Hedlwa*»*DA8IC/DATA  FILE'"  I  DEFINE  NASS  STORACE  NED I UN  . 

1230  I •••••••••••••••••••••••••••••#•••••••••••••••••••••••••••*•• 

1240  CLEAR  Hplb  I  CLEAR  NPID  DUS  . 

1290  MAI T  9.0 
1260  PRINT  CNR0< 12 > 

1270  INPUT  ‘SNTER  DURATION  OF  DATA  RECORD  .  (0«eond4>  ...*,T  *Mpl« 

1200  I . . ••••••••••••••• 

1290  !•••  CONFUTE  TIME  BASE  VECTOR  ••• 

1300  <•••••••••#•••••••••••••••••••••• 

1310  N  BMp  1  ••  I  NT  <  T  tuploF  itaplt) 

1320  F5R  1-0  TO  N  SMple-i 
1330  T< I J-I/F  lMpl« 

1340  NEXT  I 

1390  INPUT  -Nit  ENTER  «h«n  TAPE  RECORDER  14  READY. ..-.A0 
1360  CALL  Clear  c ardslHp  t  b, CardaS >  I  CLEAR  ACTIVE  CARDS  . 

1370  FOR  1-0  T0~2  I  SET  LENGTH  OF  SAMPLE  RECORD  . 

1300  CALL  St*«  bl0Ck<Npib,N  Baaple.l) 

1390  NEXT  I 

1490  CALL  Are  c  ard»<Mp  I  b,  Cardt*  >  I  ARM  MEMORY  AND  A'B  CARDS  . 

14ie  '•••••••••••••••••••••••••••••••••s 

1420  !•••  HA  IT  FOR  END  OF  BATA  STREAM  •• 

1430  I •••••••••••••••••••••••••••••••••a 

1440  MA1T  I . 29#T  Baaplt 
1490  DEEP 

1460  DI8P  -•••bbbbbbbbbbbbb  READING  DATA  BACK  THROUGH  DUES  I  bsbsbbbbb 
1470  FOR  1  — 0  TO  N  BMplB-t 

1400  CALL  Read  aeaorylNplb  al , I , XC»> , Y<b > ,2< •  > > 

1490  NEXT  I 
1900  BEEP 

1910  INPUT  -Enter  FILENAME  of  Data  Strea*  <Oait  Extension)  .  ..*,MMeS 
1920  NaB«0>NMeU'  XVZ* 

1930  INPUT  -Enter  70S  LABEL  of  Data  Streaa  . ..’.JebS 

1340  D10P  -•••••••••••••••  SAVING  DATA  STREAM  ON  DISK  MEDIUM  ••••••••• 

1990  CALL  Mri tef t  i«3(Nuei,  Jobs , Hedi uas , h  saapi e, x< •  ) ,  Y< • ) , t < •>  > 

I960  SEEP 

1970  D1SP  -DATA  FILE  STORED  UNDER  FILENAME  I  *|Naae0 
1300  END 


1390  I *•*••*•••••••••••*•••••••••••••••••••••••••••••••••••••••••••••*••••••• 

1(00  !•••••*•••♦••••**•••••••  SUBROUTINE  CLEAR  CARDS  bbbbbb»bbbbbbbbbbbbbbbbb 

1(10  I •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••SB 

1(20  IB  THIS  SUBROUTINE  CLEARS  THE  MULT  I PROGRAMMER  CARDS  IN  THE  • 


1(30  '•  SLOT  NUMBERS  SPECIFIED  BY  '  CardaS  '  . 
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144*  ••••••••••••••••••••••••«••••••••••••••••••••••••••••••••••••••••••••••• 

1434  tut  Cl  tar  cardi<Hptb,CardsS> 

1444  OUTPUT  Hp7b| *CC, *tCard»»4'T* 

1474  4UBENB 

1444  !  •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••»• 

1444  ••••••••••••••••»•*••••••«  tut  ROUT  INC  MN.CMI  ••••••••••••••••••••••••• 

1714  I*  .  THIS  tUIRO'JTINE  ARAB  THE  INTIRRUfT  Flag  ON  THE  SPECIFIES  CM*.  • 
1724  IHIttMMHtMttMMHMIttMMMMHMMMMMMHHtMMtHHtHMHI 
1734  SUt  Ara  cards(Hptb,Card>t> 

1744  OUTPUT  Hptb| "AC, *iCard*St*T* 

1784  SUBEND 


1744  I••t4ta••attta•t•taa•a•4•••••••«•••••••••••••••t•t••»••••t•4•••••t»4••«• 

1774  <••••••••••••••«•••••••«  SUIROUTINC  CI2C  BLOCK  ••••••••••••••••••••••••• 

1744  1  4  44444  44  ••#*##*7##*#4#4**a44*44444#  ••444444444a 

1790  I  *  THIS  SUBROUTINE  DETCRAINCS  THE  LENGTH  OP  THE  BATA  VICTOR  TO  • 


1400  <•  BE  8ANPLEB  BV  THE  AULTIPROCRAHNER  MEHORV  CARS  BEPORE  IT  CENSEB  TO  • 

1 B 10  ••  TAKE  PURTNER  BATA  .  THE  CARS  IS  SPECIFIES  BV  ITS  BLOT  NUNBER  GIVEN  • 

1020  (•  IN  TNC  VARIABLE  '  Card  no  '  .  • 

1430 

1040  SUB  S I  SR  block<Hptb,N  aaapl«,Card  ns) 

1430  N  aaapl • RIVALS ( 1NT<N  aaapla)) 

1440  Card  no**VALS<  tHT<2*£ard  no«t>> 

1470  OUTPUT  Np«b|*NP,*iCard  noPB*.0,*tH  aaaplaSfc'T* 

1444  BUBENB 
1494 

1904  ••••••••••••••••••••••••  SUBROUTINE  CO  PARALLEL  •••••*•••*••**•••••••••• 

1914  I ••••*•••••••••••••••••••••••••••••••••••••••••••••*••••«••••••••••••••• 

1924  la  THIS  subroutine  INVOKES  TNE  parallel  NOSE  OP  OPERATION  OP  THE  • 

1934  I*  HULTIPROCRANANER  .  • 

1940  I 4aaa44aataa44t4a4tt4444t4444444a4aaaa44a4t§aaaaaa44®4aa§aaa4aaaaaaaaa4a 
1930  SUB  Co_paral 1«1 <Npib> 

1940  OUTPUT  Nptb|*CP* 

1970  SUBEND 

1940  . . . . aaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaoaaaaa 

1990  ! aaattaaatataaaaaaaaaa  SUBROUTINE  REAS  AEAORV  aaaaaaaaaaaaaataaaaaaaaaaa 
2004  l aaaataaaaaaaaaaaaataaaaaaaaaaaaaaataaaataaaaataaaaataaaataaaaaaaaaaaaaa 
2410  I*  THIS  SUBROUTINE  READS  A  BATA  SAAPLE  PROA  AEAORV  ANB  RETURNS  IT  • 

2420  I*  IN  THE  VARIABLE  '  Duaay  '  a 

2030  laaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
2040  SUB  Raad_aaaory<Hplb_al , I_I nd**, X< • > , V< • > ,  Z< •>  > 

2430  CON  /Raad_aaaory/  K_»cal  *7v_»eal  #,  Z_»«alR 

2440  FOR  J_vac*or»4  TO  2 

2070  J  w«ctor*>VAL*( INT(2«J  vtcto r>> 

2000  OUTPUT  Hptb  at  |  *  AI ,  *t  »cr«b* ,  IT*  t  ISSUE  AEAORV  INPUT  CONAANB  . 

2090  ENTER  Nplb  at|Buaay  “  I  READ  IN  BATA  WORD. 

2104  SELECT  J  vaclo r 

2110  CASE  *4  “ 

2120  X<I  lnd«x>»K  *cal«*Buaay 

2130  CASE  -7 

2140  V<I  lndtx>«V  *cala*Duaay 

2130  CASE  *2 

2140  Z<I  lnd4x>«Z  t<al«*Buaay 

2170  END  SELECT 
2140  NEXT  J  wt (tor 
2194  BUBEND- 


2204  laaaaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaaaaataaataaa 
2210  (••••••••••••••••••••••a  SUBROUTINE  UR1TEPILC3  aaaaaaaaaaaaaaaaaaaaaaaaa 

2220  l ataaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaaaa aaaaaaataaaaaaaaaaataataaaaaaaaa 
2230  la  THIS  SUBROUTINE  ACCEPTS  THREE  DATA  VECTORS  OP  EQUAL  LENGTH  AND  • 


2240  •»  WRITES  THEN  TO  A  BISK  STORAGE  PILE  UNDER  THE  PILCNAAC  SPECIFIED  • 
2230  >*  BY  THE  USER  .  • 

2240  'aaaaaaaaaaaaaaaaataaaaaataaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaa 

2270  SUB  Hrttpf 1 1#3<Haa»S, Job*, A«dlua»,H  dat a, X< • > , V< •) , 2« • ) > 

2240  DIN  Flit  naa«S[40) 

2290  I aaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
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2300  (•••••••••••••••••••  BEF1NIT10N  OF  VARIABLE*  •••*••••••••••♦•••• 

2310  i  ••••••••••••••••••••••••••••••••••••••••••••••••••«•••••••••••• 

2320  ;  Nwl  I  NAME  OF  9ERIAL  FILE  CREATED  “0  RECEIVE  BATA 

2330  I  Job*  I  PS9CR1FTIVE  JOB  LABEL  OF  CONTAIN*®  BATA 

234#  I  N«dtua#  t  ABORKtS  OF  NARt  STORAGE  NfBIUN 

2390  I  N_d«l  *  I- NUMBER  OF  BATA  ELEMENT*  IN  CACH  VICTOR  . 

23*0  t  ••••••••••*••••••*••#•••«  «**••*•••*  ••••*••••4  #*♦«••  •••••••••••• 

2320 

2300  I*  CREAft  BATA  FILE  FOR  0TCRACE  •• 

2390  I 

2400  FI1*  Hz«-<N  d*t*'9> 

2410  IF  M«dtu*«**7lNT£RHAL*  THEN 
2420  Fit*  na*«**N*»*#lrt«dlwat 
2430  ELBE  “ 

2440  F1 1« 

2490  ENP  IF  " 

24*0  CREATE  9 BAT  FI  I*  naa**,FI1*  *1X4 
2420  I ••«•••••••••••••••••«•••••••••••• 

2400  I  A99ICN  BUFFER  I/O  FATM  TO  FILE  • 

2490 

2900  A99ICN  0Fa«h  1  TO  Fit*  n*a*« 

2910  I  ••••••♦••••••#4444#**4^#**4#44**4* 

2920  I ••  CORRECTLY  0IZS  BATA  VECTOR  ••• 

2930  . ••••••••••••••••••*••••••••••*••• 

2940  REBIN  XCN  data>l>,Y<N  dtlt-O.KN  data-l> 


2990  I •••*••••••••••••••••«••*#•**••*•* 

29*0  !•••••••  (TORE  JOB  LABEL  ••••••••• 

2920  t« 


2900  OUTFUT  0FatA  1 | Jo## 

2990  l ••••••••••«••••#••*••••••••♦*•••* 

2000  I####  0TORE  NUNBIR  OF  ELEMENT*  ••• 
2d  I#  !•••••••• ••••••••••••••••••••••••• 

2*20  OUTFUT  0F*th  1|N  data 

2*30  !•••••••••••••••*••••*•••*•••••••• 

2*40  '••••«••  0TORE  BATA  ARRAY  ♦••••#•• 

2*90 

2**0  OUTFUT  0Fath  1 1  X< « > ,  Y <  •  > ,  2 <  *  V 
2*20  . . . 

2*00  !*••••  CLOBI  FILE  AND  BUFFER  ••••• 

2*90  I •#•••••••••••••••»••♦•••••••••••• 

2200  ABBICN  OFath  I  TO  • 

2210  9UBENB 
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31  Aug  1007  20i22i40 

1000  (••••••••••••••••••••••••••••••••••••••••••••••'•••ata****************** 

till  I •••••••••••••••••••••••••••  noCMH  flHCL.CH  •••••••*»♦«•**••***••**#•••* 

1020  I*********************************************************************** 
1*3*  I*  THIS  PROGRAM  CONVERTS  TMC  U»tH(l  RAM  XVZ  HAVE  COMPUTER  • 

104#  I*  DATA  PILE  IHTO  THC  CLEVATIONAL  AMCLC  AZIMUTHAL  AMCLC  HNS  11#  HEIGHT  • 
1000  I*  #00 HAT  .  THIS  #00 HAT  10  0CMOTIB  BY  THC  AMC'  PILEHAMC  EXTENSION  .  • 

1000  )•••«••»••••••••••••••••••••••••••••••••••<•••••••••••••*«•••••••••••••• 


1070  91H  M( 0000 >, Y< 0000) ( Z( 0000 >  a  #H1 <0000) , That 410000) 
1000  StH  # I 1  *_«yi#C 10) , #i la_ang4C 10] , Job# (00) , Madluaf (201 


1000  #  t  a-4*ATN<  I  > 

1100  HAD 

1110  I ••••••••••••••••••••••••••••••*••••••••••••••••••••••••••••••*• 

1130  ••••••••••••*•••  BCP1NIT10N  0#  AHOCHAM  VA0IA0LC0  •••••••♦••••••# 

1 130  • a**************** •••••••••••••••••••••••••••••••••••••ataa***** 

1140  >  X<»>  i  KAU  X  VCCTO0  OUTPUT  #0OH  HAVE  COAAUTC0.  (Paat) 

1100  •  Y<*>  I  HAM  Y  VECTOH  OUTPUT  PROH  HAVE  COMPUTER.  <#••») 

1100  1  Z<*>  I  0CA  0URPACC  O10TANCC  PROH  (CAM  0CRCCN  .  <#*at> 

1170  I  Phi  <•>  I  tPHCRICAL  ILIVATIOHAL  ANGLE  OP  HORnAl. (Radi  ana > 

1100  I  Th*ta<*>  I  tPHCRICAL  AZIMUTHAL  ANCLE  IP  NORMAL  .  (Radian*) 

1100  l  H  data  I  NUMBER  OP  BATA  PO1NT0  IN  BATA  VCCTORt. 

1200  •  PM*  xyt*  I  P1LCNAMC  OP  BOURCC  XYZ  PORMAT  BATA  PILE  . 

1210  •  P 1 1 4~ang>  I  P1LCNAMC  OP  SOURCE  ANCLE  PORMAT  BATA  PILE  . 


1220  Nad luai-* BAS 1C 'BATA  PILE'*  I  BE# I  HI  MAS*  f TOR ACC  MCBIUM  . 

1230  '•••••*********************4***4***a*4a***4*****44**444*4**4**** 

1240  PRINT  CHR«(12> 

1200  INPUT  *Cn«ar  P1LIMAHC  of  BOURCC  XYZ  BATA  PILE  (Oalt  Cxtanslon)  ...*,PHa, 

*V*» 

1200  Plla^angS-Ptla  ayilf  ANC* 

1270  PI  la  xyX#-PI la^xyidA'^XYZ* 

1200  BItP  ••***a*t*****a  RtABINC  SOURCE  PILE  aaa.aaaaaaa*** 

1200  CALL  Raadfl 143<PI la  «y*a. Had  lua*,N  data. X<*> , Y<*> , Z<* > > 

1300  BttP  *•••••••••  COMPUTING  UNIT  NORMAL  ANCLES  aaaaaaaa* 

1310  POR  1-0  TO  n  dai a* 1 

1320  l ••••••••*••• *4**************a******* 

1330  I  *  COMPUTE  NORMAL  CLCVATIONAL  ancle  * 

1340  l ••••••••••••••••••••••••••••••••#•*• 

1300  Phi < I >-ATN<SQR<X< I >*2-V( I >*2>'Z( I >  >'2 
1300  I •••♦♦••♦♦*•*♦**••***••*♦•♦********•* 

1370  I**  COMPUTE  NORMAL  AZIMUTHAL  ANCLE  *• 

1300  14444*4*4444*4— 44*4*4*444*44*44*4*444 

1300  CALL  Ouad  Ju*t<X(l>fY(l>,Pia, Buaay > 

1400  Thwia<  1  .'-WuaayPla 
|4|0  NEXT  1 

1420  BltP  *************  tAVINC  CONVCRTCB  BATA  PILE  ************* 

1430  CALL  Mriiaf t l«3<Pi la  ang*, Job*,M*dt vaP.N  data, Phi <•>, Thaia(*> , 2<*> > 

1440  BEEP 

1400  BItP  'PILE  STORES  L'NBER  PILINAME  i  "|PI1*  ang* 

1400  CNO 


1470  I ••••••••••••»•♦•*•••••••*•••••**•••**••••*•• *****************a********* 

1400  *•*•••••••••••••*•••*•••  SUBROUTINE  OUAP_3U0T  •••••••••••*****a***a***** 

1400  I •••••••••••••••••••••••••••••••••• *• a* ••*••••*••• ••••••a •••**••• •••*•*• 

1000  I*  THIS  SUBROUTINE  COMPUTES  THE  INVERSE  TANCENT  OP  TMO  GIVEN  • 


1010  I*  X  ANB  V  COORBlNATCS  ANB  RETURNS  THC  ANCLE  CORRCCTEB  TO  TMC  PROPER  • 
1020  '•  QUABRANT  .  • 

IS30  I •••••••••• •»••••»••••••••••••••••••••••••••••••••••«  ••••••••••*•••••*• 

1040  SUB  Ouad  Ju*t<X,Y,Pla,Ang1a> 

1000  I#  x<>0  Then  i  compute  base  ancle  mat  x  axis  . 

1000  Angla*ATH(ABS(Y'X)  ) 

1070  ELSE 

1000  Angla-Pta'2 
1000  CNB  IP 

1000  I#  X>-0  THEN  I  OUABRANT  COMPCNSATIB  POR  HERE. 

1010  IP  Y>-0  THEN 
1020  Angla-Angla 


I  OUABRANT  1  HERE 
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l#t# 

ELSE 

1S4# 

1  OUADRANT 

IV 

HERE 

ICS# 

END  IF 

ICC# 

ELSE 

•  X<#  BELOH 

1 1 

I«7# 

IF  Y>»#  THEN 

ICS# 

An#1aaFla-A«#Jt 

1  OUADRANT 

It 

HERE 

1«9# 

ELSE 

17## 

An# It *Ang It *F I t 

1  QUADRANT 

III 

HERE 

171# 

SNB  IF 

172# 

END  IF 

173# 

SUBENB 

174# 

its#  i ••*•*••*••••**♦•••••*••  Subroutine  reabfileb  •♦••#♦•*♦*••*♦••*••#*«•••• 

I7«#  I 

177#  1 •  THIS  SUSSOUTINC  SERBS  THREE  BRTR  VECTORS  FROM  DISK  tT OUNCE  OF  • 

1 78#  !•  IOUAL  LENGTH  NMD  SOOTS  THEN  INTO  THE  BUNNY  VECTORS  X<  •> , Y<*> , 2<* > .  • 
17»#  >**«*******************************************************»*********t** 
IS##  SUB  Rtadfl  IiKNihI,  Jo6*,Mtdtua«,H  da«a,X<*>,  Y<»>,2<*>> 
l#l#  Bln  Flit  naatt(4S3 


1 #2#  I •••♦•••«•••«•••«*«*•**«***••«••♦**••«••»•••••••*•••••••••••< 

1#J#  Ittttttttttttttttttt  8EFIHITIOH  OF  VRRIABlES  • 

1#«#  t*«t********t***t*»******«***t******«»***«****»*************' 

ISO#  I  HUM  I  NAME  OF  SERIAL  FILE  CREATES  TO  RECEIVE  DATA 

1#C#  I  JoD»  I  BCSCRIFTIVE  JOB  LABEL  OF  CONTAINED  BATA 

1#7#  I  Mtdlua*  I  ABDRESS  OF  HASS  STORAGE  NEB I UN 

t###  I  N  data  I  HUA8ER  OF  DATA  ELEMENTS  IN  EACH  VECTOR  . 

i#y#  itttttttttttttttttttttttttttttttttttttttttttttttttttttttttt* 
19##  Ittttttttttttttttttttttttttttttttt 


1*1#  I  ASSIGN  BUFFER  1'0  FATH  TO  FILE  t 
192#  I  MttMMtMttMHMtMMMtMMM 
19B#  IF  Htdlua#**i INTERNAL*  THEN 
194#  Flit  nutOMutlLHtdliMi 
193#  ELSE  * 

IS##  Flit  naaaSaMtdluaStNaaat 

197#  ENO  IF 

19##  ASSIGN  #F«th  1  TO  Flit  Mill 
199#  I  ••••••*•**••••••••*•••#••»•*«*•*• 

2###  Ittttttt  READ  JOB  LABEL  ttttttttt 

2#l#  Ittttttttttttttttttttttttttttttttt 
2#2#  ENTER  #Fath  1 | Jab# 

2#B#  I t******************************** 

2#4#  Ittt  ENTER  NUMBER  OF  ELEMENTS  tttt 
2*3#  Ittttttttttttttttttttttttttttttttt 
2#<#  ENTER  #Fath  1 1  N  dai  • 

2#7#  . . . . . . . 

2###  It*  CORRECTLY  SIZE  BATA  VECTOR  •*• 

2#9#  I ##*•*»**####*##**#*********#***** 

21##  REDIM  X<H  data-'.  >,Y<N  data-l>,Z<N  dat*-l> 

sit#  . . . 

212#  I  ••*••*•  READ  DATA  ARRAY  •••*•••• 

2 IB#  I •••••••••»•••••*••••**•••••*•••*• 

214#  ENTER  #FatH  1|X<*>,Y<*>,2<*> 

219#  I ♦***••**•«•••••♦**•♦*•*♦••**•••♦* 

2I«#  I •*•••  CLOSE  FILS  AMD  BUFFER  ••*•• 

217#  I ••••••••••••••••••«•••*•••••••••• 

2 IS#  ASSIGN  #Fath  1  TO  • 

219#  SUBENB 


22##  I ••*••*••••*•••••••••••*•«••••••»•••«♦••••*•••••••••••*•••*•••*••••••*** 

221#  I ♦«*•*♦••«•♦•*•••*•••••*  SUBROUTINE  MRITEFILEB  *•*♦**«•••*••••••••*•*••• 

222#  I ♦•*«•♦*•••♦••*••••**••*••••*•••*•••••»•*•♦••••••*♦••«•*•••••••♦•*»*•••• 

22 J#  ••  THIS  SUBROUTINE  ACCEFTS  THREE  BATA  VECTORS  OF  EOUAL  LENGTH  AND  * 


224#  I*  NRITES  THEN  TO  A  DISK  STORAGE  FILE  UNDER  THE  FILENAME  SPECIFIED  • 
223#  I*  BY  THE  USER  .  * 

22C#  I •••••«•••*••*••**«••••••••••••••••*•»••••••••••••••••••••••••••••*••••* 

227#  SUB  Nrlttfl  ItKNutl,  Jcb* , Mtdl ua< , H  dat  a,  X<  •  >  ,  Y<  •  •> ,  Zi  •  J ) 

22##  DIM  Flit  naatf (4S) 
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229*  \*********************************************************** 
2300  I •••••••••••••••••••  DEFINITION  OF  VARIABLES  *************** 

2319  I  ***************** ****************************************** 

2320  I  n*»«$  I  NAME  OF  SERIAL  FILE  CREATED  TO  RECEIVE  DATA 

2339  '  Job*  '  DESCRIPTIVE  JOB  LABEL  OF  CONTAINED  DATA 

234B  I  Htdluo*  f' ADDRESS  OF  AASS  STORAGE  NED  I  UN 

233*  I  N  dot a  I  NUMBER  OF  DATA  ELEMENTS  IN  EACH  VECTOR  . 

23M  l 

2370  I  •  ***•*'•*•*•**•**•••**»*******•*** 


2300  (•  CREATE  DATA  FILE  FCR  STORAGE  •• 
2390  < 


2400  Flit  of  z«* INT  <N  dot  0^9 > 

2410  IF  Modi uo*»* i INTERNAL*  THEN 
2420  Ftlo  noootaNoootOHodtuo* 

2430  ELSE 

2440  Ft 1#  noa«t>M«df ua*tNoa«* 

2490  END  IF  " 

2400  CREATE  BOAT  Ft)*  noo4*,Ft1«  otz* 

2470  f  »»*****•••**•*•*•*•*•»•**»•»»**»* 

2400  I  ASSIGN  BUFFER  I/>0  PATH  TO  FILE  • 

2490  1 ••••••••••••••••••«•••••••••••••* 

2900  ASSICN  OPoth  1  TO  FtW  nu»« 

2910  I ••*•*••• *4 #7*o ******************* 

2920  •••  CORRECTLY  SIZE  DATA  VECTOR  ••• 

2930  t  ********************************* 

2940  REDIM  X(N  doto-I>,Y<N  doto-l>,2<N  dOto-l> 
2990  I  HittumittHttHutittMitMu 
29*0  HHHti  STORE  JOB  LABEL  ••••••••• 

2970  ! ft******************************* 

2900  OUTPUT  OPoth  1 | Job* 

2990  f *****•*•*•***••*•••**»**•******»* 

2*00  !••••  STORE  NUMBER  OF  ELEMENTS  ••• 

2*10  I •******••***»**••*•***•***, ****** 

2*20  OUTPUT  OPoth  I(N  doto 

2*30  I ********************************* 

2*40  !••»•••  STORE  DATA  ARRAY  •••••••• 

2*90  I ********************************* 

2**0  OUTPUT  OPoth  1|X(4>,Y<»>,Z<«> 

2*70  I ********************************* 

2*00  ••••••  CLOSE  file  and  buffer  •  •••• 

2*90  I 

2700  ASSIGN  OPoth  1  TO  • 

2710  SUBEND 
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31  Aug  19*7  SIM  33i  29 

till 

l(lt  I •*•*•*#••*•04® a* ••••444###  PROCRAN  PEEKER  ••••••*••••***•*••••••••••••• 

list  I 

It 36  I*  THIS  PROGRAM  IOOTS  IN  AH  ANGLULAR  FORMATTED  SEN  SURFACE  FILE  • 


K4t  I*  AND  PERMITS  THE  USER  TO  PLOT  AMD  EXAMINE  IT  .  • 

K9t  I 

16(6  OIA  Phi  <46*0  ( The  ta<  46*0 1  TIm  sxl*<46 *(> 

1676  DIN  X<46*(>,  Y<4t*(>,Z<46V(> 

1666  tin  Nutltld.Nut  InKKI.Hwi  tpoc  *t  Id ,  Modi  uatt  26) ,  Job*  1 66) 

16*6  I 4®*®® ®®®®44®®® ® 4*^® ® ® ®4®® ®*® ®® ®4® ®®®®4® ®® ®4® ®®®®®*®® ®*®® ® ®*® 

1166  >••••••••••♦•«•  DEFINITION  of  local  VARIABLES  ••♦*••«•*»*•••• 

me  ‘«*®4®®**®*®®*®*®®®®®**®®*®®®®®®*®®*®®®®»®®®*®®*®*®®®***®®®®® 

1126  F_taPp1o-(6 

1136  T~*aapto4l'F_oapplo 

1146  Ltafcago*.  1  ~ 

1196  P1o®4*ATN< 1 > 

11(6  Nod1uo*®*BA8IC/DATA  FILE/" 

1176  l*®«*®®*®*®®*®®***®T*®®®®®.*®*«*®®®®»®®®*®®®®®®®®*®®*®®®®®*®® 

1166  PRINT  CHR*< 12) 

11*6  INPUT  *Ent«r  FILENAME  of  SOURCE  Dot*  F 1 1  . . *,Nutl 

1266  INPUT  *Entor  TINE  LtNlT  on  DATA  STREAM . * , T_p4x 

1216  N  dot |NT<T  ui/T  taaplo> 

1226  I *•*••••••*•#•***••••••♦•••••••*•*•••*•••*•• 

1236  (•*••••••  COMPUTE  TINE  BASS  VECTOR  ****•**•• 

1246  I ®®®®®®***®®«*®®**®*®*®®**®*®®®**4®®®*®®®®** 

1296  CALL  Tip*  baooCN  data.T  taapl*,Tla*  axlt<®>) 

12(6  L«ngthaLEN<Naa*s7 

1276  T*tt*®NaaoSCL*ngth-4(L*ngtM) 

1266  IF  T*ot6»"  ANC*  THEN 

12*6  call  RoadflloBINaaoS; Job Nodlua*, N_poi nt ,Pht < *> , Thot  a<  • > , Z< • > > 

1366  call  Tim  b«*o<N  dato,T  oaoplOfTtoo  axl*<®>> 

1316  CALL  Plot"fl  1#(TTo«  axlo(®>,PM  <®>,fi  dat  a,6,T  box, -Pi  • ,  PI  *,  3, *Y*> 

1326  CALL  Plot'f  <l*<Tio4~*xt*<®>,Th*t*<®>,H  dpt o, 6.  T_oax, -PI 0, PI 0,4,  *N* > 
1336  EL8E 

1346  call  Roartf I1031NU0I,  Job* , N*d t ua» , N_p© l nt ,  X < ® > , Y< • > ,  Zt • > > 

1396  CALL  Plot  ftlolTlao  axl*<e>,X<®>,N  doto,6.T  oox ,-(,(,  2,  *  V*  > 

13(6  CALL  P 1  ot  “V 1  I O  <  T 1 Po“ax !*<•>, Y<®>, N-d*t p , 6 , T  pax ,-(,(, 3, *N* > 

1376  CALL  Plot~f  I  l*<Tl**-axl*<®>,Z<®>tN“daiatS,T  pax, -( , (, 4, *N' > 

1366  END  IF 
13*6  PRINT  Job* 

1466  PRINT 

1416  PRINT  'Total  Rocord  Length  1*  *|N_po1nti'  Point*.....* 

1426  INPUT  'HIT  RETURN  ...*,A* 

1436  GRAPHICS  OFF 
1446  ENB 


1496  !®®*»*®*®®*®**®**»®®**®**®®®®®®®*®**®®®«®®®®**®®®®®®®*®**®*®®*4®®®*®®®®® 
14(6  I  •••••••»•••*••••••••••••  SUBROUTINE  TIRE  BASE  *##***o#*#4*#****#**o###o 

1476  I  •  •4®®®**®*®®®®®®®*®®®®®®®*®*®®®***®®®  »***••■»*••••♦*•*••••♦* 

I486  ••  THIS  SUBROUTINE  CONFUTES  THE  TINE  BASE  VECTOR  FOR  USE  IN  • 


1496  I*  PLOTTING  THE  DIRECTIONAL  BATA  . 

1966  1 ••••••••••••••••••••••••••••••• >•••••••••• 

1316  SUB  Ttae  baso<N  data,T  saaplefTiae  axt*<®>> 

1926  FOR  I at  To  N  data-1 

1936  Tip*  ax1*<T>«I*T  oaaplo 

1346  NEXT  I- 

1936  SUBEND 


19(6  i •**•••*••*•••*••••••••••>#••••••••••••••*•••*•••*•*•*•*••••••••*•*•*•*• 

1976  ?•**»•♦•*•••••••♦••••*»•  SUBROUTINE  READF1LE3  ••**®®***®**®**®*®®**®®®®® 

1966 

19*6  •  •  THIS  SUBROUTINE  READS  THREE  BATA  VECTORS  FROM  BISK  STORAGE  OF  * 


1(60  I#  EQUAL  LENGTH  AND  BOOTS  THEN  INTO  THE  BUNNY  VECTORS  X<® > , Y< * ) , Z< *> .  • 

162e  SUB  Roadfl lo3<Na*o*t Job*,Nodlua*,H  dat a, x<» ) , Y< • > , Z< • > » 

1(36  DIN  F 1 1 #  naa*»C  461 
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i 

i 


1648 

1430 

i««e 

1470 

1*60 

1**0 

1700 

1710 

1720 

1730 

1740 

1790 

17*0 

1770 

1700 

1790 

1800 

1810 

1820 

1038 

1840 

1838 

1048 

1070 

1000 

1090 

1900 

1910 

1920 

1930 

1940 

1990 

1960 

1970 

1900 

1990 

2000 

2010 

2020 

2030 

2040 

2030 

«C«0 

2070 

2000 

2098 

2100 

2110 

2120 

2130 

2140 

2130 

2160 

2170 

2100 

2190 

2200 

2210 

2220 

2230 

2240 

2230 

2268 

2270 

2280 

2290 


!•••••••••••••«•••••  DEFINITION  OF  VARIABLES 


I  Naa«*  I  NAME  OF  SERIAL  FILE  CREATED  TO  RECEIVE  DATA 

I  Job*  I  DE8CR1FT I VE  JOB  LABEL  OF  CONTAINED  DATA 

I  M*dlua*  I  ADDRESS  OF  HASS  STORAGE  MEDIUM 

!  N  dm  r  NUMBER  OF  DATA  ELEMENTS  IN  EACH  VECTOR  . 

I  ••••••••••••••••••••••••*•••••••*•••••••••••••••••*•••»•»•• 


I  ASSIGN  BUFFER  I'C  HATH  TO  FILE  • 

I  •••••»•••.•••••••••••••••••••••••  j 


IF  M*dtua»**l INTERNAL*  THEN 
Ft  I*  naa«6>Naa**LH*dl uaf 
ELSE 

Ft!*  naa*F»M*dt uaFLNaa** 

END  IF  " 

ASSIGN  0Aalh  1  TO  Ftl*  n*a«S 


READ  JOB  LABEL 


ENTER  8Path_t| Job* 


•••  ENTER  NUMBER  OF  ELEMENTS  ••• 


ENTER  0P*th_l|N_dat* 


CORRECTLY  SI2E  DATA  VECTOR  *•• 


REDIM  X<N_d*t*-l>, Y<N  data-l>,2<N  data-l) 

I ••••••••*••••••••••••••••«••••*•• 

I  *******  READ  DATA  ARRAY  •••••••• 


ENTER  0Path  l|X(*>, T(*),Z<*> 

I •*••••••••«•••••••••••••«•••••••• 

l**«*«  CLOSE  FILE  AND  BUFFER  ••••• 


AS8IGN  OP  at*  1  TO  • 
SUBEND 


SUBROUTINE  PLOT  FILE 


•  THIS  SUBROUTINE  ACCEPTS  TWO  DATA  VECTORS  AND  PLOTS  ONE  VERSUS 

•  THE  OTHER  .  THE  USER  NEED  ONLY  SUPPLY  THE  LIMITS  OF  THE  GIVEN 

•  VECTORS  AND  THE  DE8IRED  PLOTTING  COLOR  .  SCALING  AND  AXES  ARE  AUTO- 

•  MATICALLY  PROVIDED  BY  THIS  SUBROUTINE  . 


SUB  Plot_T  t  I « <Xdat  a<*  > ,  Ydat  *<•  > ,  Mpl  ot ,  Xatn,  Xaax,  Yat  n,  Yam  ,P*ne  ,  N«wi) 
COM  ✓Piot^block-'  X*eai*,  Y*cal*»Xof f »»t ,  Yof f s«t 


DEF1NTITI0N  OF  LOCAL  VARIABLES  •••*•••♦*••»• 


t  xdata<*> 

I  Ydata<*> 
l  Nplot 
t  Xatn 
t  Xaax 
I  Yatn 
I  Yaax 
!  Pent 
I  H*w< 

Wht  t •• l 
A  color'Whlt* 

xT*ft«0 

Xrat 1*28 

Xc*nt *r*64 
Mr  t  ght  *128 


I  ABSCISSA  DATA  VECTOR  TO  BE  PLOTTED  . 

I  ORDINATE  DATA  VECTOR  TO  BE  PLOTTED  . 

I  NUMBER  OF  DATA  POINTS  IN  VECTORS  . 
t  SMALLEST  ELEMENT  IN  Xdat*<»>  VECTOR  . 

•  LARGEST  ELEMENT  IN  XdataCO  VECTOR  . 

I  SMALEST  ELEMENT  IN  Ydata<*>  VECTOR  . 

I  LARGEST  ELEMENT  IN  Ydata<*>  VECTOR  < 

!  DESIRED  COLOR  CODE  OF  PLOTTING  COLOR 

-  ORDERS  THE  ROUTINE  TO  CLEAR  THE  GRAPHICS 
t  DEFINE  THE  COLOR  CODE  FOR  WHITE 
I  SET  AXIS  COLOR  WHITE 

'  DEFINE  LEFT  OF  SCREEN  (Plotter  Unit*) 

I  DEFINE  X  AXIS  RAIL  (Plotter  Unit*; 

t  X  COORD  CENTER  SCREEN  (Plotter  Unit*; 

•  DEFINE  RIGHT  SCREEN  ..Plotter  Unit*; 
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2360  Ybouoi**  i  DEFINE  LONER  SCREEN  CPtottor  Unit!) 

2316  Yrat  I  •!<  •  DEFINE  Y  AXIS  RAIL  (Plottor  Unit*) 

2326  Yc*nt*r«48  !  Y  COORDCENTCR  SCREEN  CPlottor  Unit*) 

2336  Yt opa96  I  DEFINE  TOP  OP  SCREEN  (Plotter  Unit*) 

2346  I  X_d#noa  *  DENOMINATOR  OF  X  PLOTTINC  SCALE  FACTOR  . 

2396  I  Y  donoa  -  r  DENOMINATOR  OF  Y  PLOTTINC  SCALE  FACTOR 

23C6  I 
2370  I 

2366  I**  CLEAR  AND  INITIALIZE  CRAAMICS  IF  SPECIFIED  * 

2366  I 

2466  IF  N«w*»*Y'  THEN 
2410  CIMIT  1.9 
2420  CRAPHICS  ON 
2430  PEN  Mbit* 

2440  VIEHPORT  XI  aft , Xr Ight , Ybot  t  on, Yt  op 
2490  FRAAE 
2460  I 

2470  i*  DRAM  PROPER  AXES  FOR  PLOTTINC  • 

2460  > •••*••••••••••••••»*»«•••>••••••• 

2490  IF  Xat  n<0  THEN 

2960  IF  Yal n<0  THEN  !•••»•«••<•«»>•••••<•••««••<•• 

2910  Xof faataXctnter  I*  FOUR  OUAD  AXES  DRAHN  HERE  • 

2920  yoffn**Ye»ntir  I  #a*a#4#*»aa»aa**aa*»a*##»##»»a 

2936  X_dtnoB*Xoax 

2946  Y~d«noaaYa4x 

2990  CALL  Axl  »_dra*<  x  I  of  t ,  Yof f»at  , Xrlght.Yoffaat, A_col or , -Xaax, Xaax > 

2960  CALL  Ax  1 4  draaCXoffa* t , Ybot t oa, Xoffatt , Yt op, A*"col or , -Yaax, Yaax > 

2970  ELSE  . . . 

2960  XoffaataXcantar  I*  ♦  /-  X  TYPE  AXIS  DRAUN  HERE  • 

2996  Yof f aataYral  1  ta»a»a«a4a*a«*4a*»*****4*»***tt 

2660  X_d*noaaXaax 

2610  Y_danoaaYaax-Yot n 

2620  CALL  Axi «_draw(Xlaf t ,  Yoffaat.Xrlght.Yoffaat ,  A_c  ol  or  ,  -Xaax ,  Xaax  > 

2630  CALL  Ax  1 1  dr an < Xof  faat ,  Ybot  too,  XoffBRt ,  Ytop,  A-col  or ,  Yal  n,  Yaax) 

2640  END  IF  ' 

2690  EL8E 

2660  IF  Yaln<0  THEN  I 

2670  XofftataXral  I  la  ax-  Y  TYPE  AXIS  DRAUN  HERE  • 

2680  Yof faataYcantar  I •••••#««••••»*• «•••••••#•#••*• 

2660  X^danoaaxaax-Xal  o 

2700  Y  danoaaYaax-Yat n 

2710  cSlL  Axl  »_dra*(Xof  faat  ,  Yof  f  mat ,  Xr  i  flht ,  Yof  f  mat ,  A_col  or , Xat  n,  X» 

2720  CALL  Axl  *~drau< Xof faat  ,Ybotto»,Xoff*ai,  Ytop,  A_color ,  -  Yaax,  Yh- 

2730  Yoff*at«Ybottoa 

2740  ELSE  '••••••••••••••••••*•»•••••*•»• 

2790  Xof faat «Xral  1  la  ♦  ONLY  XIY  AXES  DRAHN  HERE  • 

2760  Yoff *at«YbOttoa  I 

2770  X_danoaaXaax-Xaln 

2700  Y^df noaaYaax-Ya I n 

2760  CALL  Axl  *_dr*w<Xof  faat  ,  Yof  f  aat  ,  Xr  I  0ht  ,  Yof  Faat ,  A_col  or ,  Xal  n,Xaax  ) 

2800  CALL  Axt»  dra«<Xoff aat ,  Yof faat , Xoff aat , Yt op, A  col  or , Yal o, Ya«x> 

2810  END  IF 

2820  END  IF 

2630  xacal «a<Xr i ght -Xof faat >'X_danoa 

2040  Y*cal4«<Yt0p-Y0ff »«l >4Y  danoa 

2690  END  IF 

2660  . . . 

2070  i»  DATA  VECTORS  PLOTTED  IEL0M  » 

2080  ItMIIHMimMmHHIMMHt 
2890  PENUP 

2900  CALL  Sc al ar (Xdat  a<0> , Ydat  a(0) ,  Xa I n,  Xaax, Yat  n, Yaax , X  plot.Y  plot) 

2916  PEN  Pont 

2920  HOVE  X  plot.Y  plot 

2930  FOR  1 *0  TO  NpTot-1 

2940  CALI  Sc  *1  ar<  Xdata<  I ) ;  Yda*.  a<  I ) ,  Xatn,  Xaax,  Yat  n,  Yaax,x  plot.Y  plot) 

2690  DRAM  X_plot,Y_plot 
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29(0  NEXT  I 
2970  SUBEHD 
2980  i  • 

2990  !•♦«•♦*•••♦••**»••«•»•••  SUBROUTINE  AXIL  BRAN 
3000  I 

3010  !•  THIS  SUBROUTINE  BRANS  AN  AXIS  FROM  THE  STARTING  COORDINATE  TO  • 

3020  !•  THE  FINAL  ONE  .  IT  ALSO  QUANTIFIES  THE  ORIGIN  ANB  TERAINUS  OF  SAIB  • 
3030  '♦  AXIS  .  • 

3040 

3030  SUB  Axis  drsw<Xstsrt,YstArl,  Xf l n*l ,  Yf  1  n*l  ,  Ax  1  s  color, A  »1n,A_s«x) 

30(0  Pto*4»ATN<l> 

3070  D*1 »«*3 
3000  PENUP 
3090  PEN  Axis  color 
3130  PENUP 

3110  HOVE  Xst  *r  t ,  Ytt sri 

3120  ORAN  Xftnsl .Yftnal 

3130  PENUP 

3140  CS12E  3.0, .3 

3130  CALL  Rounder <A_*I n, 3, A0 ) 

31(0  CALL  Round*r<A  aax,3,Ai: 

3170  IF  XstsrtaXFInll  THEN 

3100  CALL  Lab* 1 1 1 i Xst trt -D* . t 4,  Yst »r t ,Pl or2, Axl s  col  or, VAL» < A0) ) 

3190  CALL  L«b*11l<xrin»1-D*U«,Yfln»l-2*D*Ua,Pt*r2,Ax1»  c  ol  or ,  VAL»<  Al  >  > 

3200  ELSE 

3210  CALL  Lsb*  1 1 1  <  Xst  art ,  Yst  srt -D«  1 t 1, 0,  Ax  I  s_C0l  or ,  VAL*<  A0>  > 

3220  CALL  Lsb* I  1 1 <Xf i not -2*0* It a, Yst art-D* It 1,0, Axl s  color , VAL*<A1 > > 

3230  END  IF 
3240  SUBEND 

3230  . . . . . 

32(0  !»•»»••*«*•••»•*»»♦*•«»  SUBROUTINE  LABEL1T  »»*••»#•♦••»•♦*«»♦♦»«♦♦•••♦•♦» 

3273  . . . . . . . . 

3260  '♦  TH I S  SUBROUTINE  SIMPLY  ACCEPTS  THE  GIVEN  LABEL  and  PLACES  IT  NHERE  • 

3290  '•  IT  IS  SPECIFIED  <1*  X.Y  LOCATION)  AT  THE  GIVEN  TILT  ANGLE  .  THE  PEN  » 

3300  «•  COLOR  'Pane'  IS  ALSO  PROVIBEB  BY  THE  USER  .  THI8  SAVES  A  LOT  OF  ♦ 

3310  1  *  REPETITIVE  COBE  .  • 

3320  *•»•*«♦•««♦«•«•♦••.♦»•*»•••«»••.»•.•»**••»*••*••••••*••**••♦»*•**••**♦ 

3338  Sub  Lsb* I  1 1  <x,  Y,  Tt  U, P«nc  ,Strng»> 

3340  PENUP 
3330  MOVE  X , Y 
33(0  PEN  P*nc 
3370  LDIR  Till 
3300  LABEL  StrngS 
3390  PENUP 
3400  SUBEND 

3410  '•••••••••••*»*•*«*••«•* ••••»•• •••*•»*••••••«*•*•••• •**••••••»»•»•***< • > 

3428  •••••••»•••••»••«•••••••••«  SUBROUTINE  SCALER  •«•♦•••*•••*•••*♦•••#•»*« 

3430  l ••«»*•••••••*•«••*•**•*•»*••*•••»•*•••«•••*»••«••••»••••••••*••*•••••*• 

3440  ••  THIS  SUBROUTINE  SCALES  THE  BATA  PASSES  TO  IT  FUR  CRT  PLOTTINC  • 

3450  '•  PURPOSES  .  * 

34(0  ' ••*•<•••••••••••••••••••*•«••••*••••••••»•••••••••••••***•••*••»••••••• 

3470  SUB  Sc *1 *r (X^dat s, Y_dat 1, X*l n.Xaax, Yoln.  Yasx, X_pl ot , Y_plol > 

3480  COM  rPlot_block/  XsealR, Yacal *,Xof f L*t , Yoffaat” 

3490  X_p1 ot *X»c » I •• C X_dat a-Xa I n)*XoFf S*t 
3300  Y-plOt  ■Y*C4l**<Y'’d*t4-Yoln)*YoTCs*t 
3310  SUBEND 

3320  ' #•♦•••••••«««»•.««••»••«••*••••••«•••*♦••*»♦•»♦••«♦»*#*♦»•#••♦••••**•♦* 

3330  >••«•••••«••••••••••••••♦  SUBROUTINE  ROUNDER  •••*••♦»••«••*•••***•♦«♦•«• 

3940  !•••••<>•*••••••••*•••••*. .•••••••***.*4*4*4*«*4******>*******4**«*4****4 

3530  !»  THIS  SUBROUTINE  ACCEPTS  A  NUMBER  OF  ANY  SIZE  OR  SIGN  AND  • 

33(0  '♦  ROUNDS  IT  TO  THE  SPECIFIED  NUMBER  OF  DICITS  .  • 

3370  ' 

3300  SUB  Round*r<X  Inpui, N  dlgti*,X  round*d> 

3390  ■••«••••»••* .t*««*.*#7». ••«•#••• a************* •»«••••••*** 

3(00  BEF  IN  IT  I  OH  OF  LOCAL  VARIABLES  ♦«••»**»•»••»» 

3(10 
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3(21  t  X  Inpul  I  INPUT  HUMIC*  TO  IE  ROUNDED 

JOt  f  x'duily  I  DUMMY  VARIAILC  USED  TO  PROTECT  X  Input 

3(41  !  N~dlfltt»  I  HUHICR  OF  DICITI  DISPLAYED  AFTER- ROUND  INC 

3(31  *  X~round«d  I  ROUNDED  EQUIVALENT  OF  X  Input 

3 ((•  I  sign  I  NUMERICAL  POLARITY  OP  P&JHDCD  NUHICR 

3(71  I  Nignttud*  ('ORDER  OF  MAGNITUDE  OF  INPUT  HUMDER 

3(01  I  Mint  I  it*  I  MANTISSA  OF  MUHIER  UNDER  ROUNDING 

3(00  I  ARCUNCNT  t  AIIREVI ATED  VERStON  OF  MANTISSA. 

3’0S  (••••••*••••••••••••••••••••••••••••••••••••••••••••••••*• 

3710  IP  X_tnput<>0  THEN 
3720  X  du»py»X  Input 
3730  s7gn«SGN<X  du uy> 

3740  X  duny*AI?(X  duiay) 

3730  Mignt  tudP“INT—LCT (X_duaay ) > 

37(0  Nmtliii«X  duliy^t lOAMignitudP> 

3770  Argument* INTtfltnt  t 10~ <N_dt  gi  t  »-I  >>y|0^<N_tf  Igt  t»-l ) 

3.08  X  round«d»*t  gntArguipnt  •  lO‘>H*gnt  t  ud«  ’’ 

3730  ELSE 

3000  X  round«d«X  Input 
3010  END- IF 
3020  SUICND 
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31  Bug  1**7  20129149 

DM  •aeeeaeeeeeeeeeeeeeeeeeeeaeeeaeeeeeaeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
■  •10  !*••»••••••••••••••*•••••  MOCMn  2  SPECTRUM  **••••••••••••••••••••*•* 

1020 

1030  I*  THIS 'PROGRAM  0OOT0  IN  THt  '2'  VECTOR  FROM  THE  ANGULAR 


1040  I*  FORMATTED  FILE  AMD  PERFORMS  A  FAST  FOURIER  TRANSFORM  ON  IT  .  THE 

toss  i»  resulting  Spectrum  is  then  plotted  ,  printed  out  ,  and  stored  on 
10(0  ! ♦  disk'  hith  the  file  EXTENSION  '  SPEC  '  . 

1070  I 

1000  DIM  Phl  (4090,  The  tat  4094) , 2(4090 

1090  DIM  Frequency(409(> ,  Magnl  tude  ( 4090 ,  Phaae  (4R9S) 

1100  DIN  NU«*(I(l,Hu«  InKKI.Mui  »UI<[  l(),Hed1uaSC201,  JoDttSO] 

1110  PRINT  CHR4< 12> 


1120 

1130  •«••••#•••••«•»  DEFINITION  OF  LOCAL  VARIADLES 
1140 

USA  I  2(e)  I  ELEVATION  OF  SEA  SURFACE.  (Feet) 

11(0  I  Ph I ( • )  I  ELEVATIONAL  ANCLE  OF  UNIT  NORMAL.  (Radtana) 

1179  I  Theta<»>  I  A2 1MUTHAL  ANCLE  OF  UNIT  NORMAL.  (Radtana) 

1100  •  Magnl tude(«)  I  MAGNITUDE  OF  FOURIER  SPECTRUM.  (ft/hlrt) 

1190  I  Phaae (*)  I  PHASE  OF  FOURIER  SPECTRUM.  (Radtana) 

1200  t  Frequency! • >  t  FREOUEHCY  OF  SPECTRAL  COMPONENT.  (Hertz) 

1210  I  N_dat a  f  NUMBER  OF  TEMPORAL  DATA  POINTS. 

1220  t  Njaotn  I  H  data  ROUNDED  UP  TO  NEXT  POHER  OF  THO. 

1230  I  Mean  I  STATISTICAL  MEAN  OF  2  VECTOR  DATA.  (Feet) 

1240  F_aaap1*a(0  I  SAMPLING  RATE  OF  HAVE  COMPUTER.  (Hertz) 


1290  T_aaapleal'F  taaple  \  TEMPORAL  SAMPLINC  INTERVAL. (Sec) 

12(0  PI  ea4*ATN(  1  )"* 

1270  Medt  ua*a* BASIC 'DATA  FILE'*  I  DEFINT10H  OF  MASS  STORAGE  MEDIUM. 

1200  Penl«2 
1290  Pen2-3 
1300  f 

1310  PRINT  CHRf ( 12) 

1320  INPUT  ‘Enter  FILENAME  OF  SOURCE  Data  Flit  . .(Oatt  Extenaion). . . *,Na**S 
1330  INPUT  ‘Enter  SPECTRAL  TRUNCATION  Data  File  LENGTH  ...*,N  ahort 
1340  Ulndow  Sa«N* 

1390  Naae  InONaaeSS*  ANC* 

13(0  Naae^out  *  >Naae • tT_SPEC * 

1370  CALL  ReadFl le3(Naae  1 n*. Job* , Hedt waS.N  data, Phi <♦>, Theta(«> , Z( •> > 

13S0  N  pol nt a2* INT ( LOGIN- da( a> 'LOG< 2 > ♦  1 ) 

1390  call  St  at  t  at lca(Z<«7,N  dat a,  Mean, S t gaa) 

1400  IF  Nlndou_*a*Y*  THIN 

1410  CALL  Nlndeuer(2(t),N  point ) 

1420  END  IF 

1430  call  Kill  oFF aet  <Z( e> , N  data, Mean) 

1440  CALL  Zero~FI 1 1 ( Z< ♦ ) , N_dat a, N_po I nt ) 

1490  CALL  FFt (2(*> ,N_polnt7Ple ,Magnl tude(e> ,Pha*e(e> : 

14(0  CALL  Freq_baae<H_polnt,M_ahort ,  F_aaapl e , Frequency (• ) > 

1470  Freq_aaxaMAX(Freauency ( ♦ > ) 

1400  Mag  aaxaMAX<Hagnttude<0) 

1490  Phaae  a<naAlS(MIN<Phaae(»> ) > 

1900  Phaae~aaxaABS<HAX(Ph*a*<*) >  > 

1910  IF  Phaae_aex<Phae*_atn  THEN 
1920  Phaae  aexaPheat~aln 
1930  END  IF 
1940  PRINT  CHRS (12) 

1990  PRINT  JebS 
19(0  PRINTER  IS  ( 

1970  PRINT  Job* 

1900  PRINTER  IS  1 

1999  CALL  Plot  file ( Frequenc y ( • > , Magn i tude(*),N  abort, 0,Freq  aax, -Mag  aax,Hag 
aax , Pen  I , * Y* , *NACHI TUDE  PLOT*)  " 

1(00  INPUT  -Hit  RETURN  to  CONTINUE  A* 

1(10  CALL  Plot  FI  I e(Frequency( • ) , Phaae <*> ,N  abort, 0,Freq  aax, -Phaae  aax, Phaae 
aax, Pen2, *Y* , "PHASE  PLOT  *>  ' 
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162*  INPUT  'Hit  RETURN  to  CONTINUE  . ..',A* 

1639  GRAPHICS  OFF 

1649  INPUT  'PRINT-OUT  8PECTRUH  7  <YxH7  A* 

1699  IF  Ain'Y'  THEN 

1669  CALL  Print  out (Fr«quancy< • 7 , Hognt t ud*(* 7,Ph*»a <•> ,N  ahort > 

1679  END  IF  -  - 

1699  INPUT  'STORE  SPECTRUM  on  01  Ok  7  <Y/N7',A* 

16*9  IF  A*n'Y'  THEN 

1799  CALL-  Ur  1  tof 11 *3( Noao_out  *, Job*, Radius* ,N_*hort , Frpquoney(*7 , Hognt tudo( 
♦  >,PHt»c(a>>  ~  ~ 

1719  ENO  IF 

1739  PRINT  CHt*< 12) 

173*  ENO 


1740  laaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
1739  laaaaaaa.aaaaaaaaaaaaaaaaaaa  SUSROUT 1NE  FFT  »••«*••••**•*•••••••••••*•♦• 

1769  I . aaaaaaaaaaa . aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

1779  la  THIS  SUSROUT1NE  PERFORMS  A  FAST  FOURIER  TRANSFORM  ON  THE  • 


1780  !•  DEPOSITED  ORTA  VECTOR  -  X  1nput(a>  THE  REAL  PART  OF  THE  SPECTRAL  * 
1798  I*  VECTOR  IS  RETURNED  IN  THE  VARIAOLE  '  F  raal<a>  '  AND  THE  IMAGINARY  • 

1899  !«  PART  IS  RETURNED  IH  VARIAOLE  '  F  toagaCa)  .  IT  IS  IMPORTANT  TO  • 

1919  I*  NOTE  THAT  ,  IN  ORDER  FOR  THIS  FFT'alCORITHM  TO  HORN  THE  HUHSER  OF  • 

1828  I*  DATA  POINTS  UNDER  ANALYSIS  MUST  OE  A  POWER  OF  TWO  I)  • 

1838  laaaaaaaa.aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
1*48  SUS  FfttX  1 nput ( • > , H_pot  nt , PI • , Nagnl t uda(*  7 , Phaaa ( • >  > 

1838  DIM  R««1  I(48*3> , loaga  1(49*3), Raal  2(4193), laaga  2(40*37 
I960  DIM  P  1 ndax<  2949  > , C  1nd#x<2*48> 

1678  REDlH_Ra4l_l(N_point-l 7, Iaaga_l (N_pol nt - 1 7 
1998  REOIM  Ra*l~2<M~po1 nt - 1 > , Iaaga~2(H  point-1) 

1998  RAO  '  ~  ' 

199*  P1aa4*ATH(l> 

1*1*  V_po1nt>INT(L0C<N pot nt 7/LOG(27 7 

1929  1 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
1*38  ORDER  DATA  VECTOR  FOR  INPUT  OF  TRANSFORM  •••••• 

1948  1 aaaaaaaaataaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaa 
1938  CALL  Sit  rauor*a(X  I nput < a), N  point ,V  oo Int , Raal  1<#7> 

1*6*  . . . . . 

1*79  1*  NULL  IMACIHARY  INPUT  VECTOR  • 

19*9  . . . 

19*9  FOR  In*  TO  N_potnt'2-l 
2909  lapga  l<I>-9 
2919  NEXT  I 

2929  FOR  I_atagas9  TO  V_polnt-l  I  START  STACE  STROSINC  LOOP 

2939  CALL  Buttarf ly(N~po1 nt , V _po1nt,I  ataga.P  1ndax(a ) , 0_l  ndax( a > > 

2949  FOR  1  buttarf I yaO  TO  N _po1nty2-l~  I  StSrt  BUTTERFLY  STROSINC  LOOP  . 

2*39  I aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

2960  I*  DETERMINE  BUTTERFLY  BRANCH  POINTS  • 

2879  i aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

2999  P»P_1nda*( J_buttarf ly 7 

2999  UnO~(ndax< J_buttarf ly 7 

2199  R_pouamFHMod«l  o<  J_but  tarf  1  y»2"<  V_po  I nt - 1  - I_at  *g«  7  ,  N_pol  nt  '2> 

2110  CALL  Pha*or(Pl «,N_po!nt ,R_pouar ,H_r««l , W_1atga 7 

2120  CALL  Product _coapTf x(N_raal ,N_1 page , R*a'”l < 07 , lnaga_l (0) , Dun«y_r«»l , 

Dupny  laaga)  '  ~ 

2138  • aaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaa 

2148  la  COMPUTE  UPPER  HALF  OF  BUTTERFLY  a 

2139  f#aaaaaaaa*aa#aaa*aaaaa#*aaaaaa*aaaa 

2168  R«4t_2<P)nRa*l_l <P )*Duaay_r«al 

2179  laagt  2<P7 n laaga  l(P7*Duany  laaga 

2199  1 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

2199  i a  COMPUTE  LOWER  HALF  OF  BUTTERFLY  a 

2208  laaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaa. 

2218  R«4l_2(07nR«*l_l (P)-Dunayraal 

2229  latga  2<07*Ia4g*  l(P)-Ouaay  laaga 

2230  HEXT  Jbuttprfly 

2248  laxaaaaaaaaana.aaaaa.aaaa aaaaaaaaaaa 

2239  'a  UPDATE  NEXT  CYCLE  SOURCE  VECTOR  • 
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23<l  I eeeeeeeeeeeeeeeeeeeeeeeeaeeeeeeeeee 

2279  HAT  Aeol_l«Reol_2 

2289  HAT  I  a  age  2 

2299  NEXT  I  stage 

2399  t  eeeeeTeeeeeesaeeeeeeaeeeeeaeeeeeaeeeeeeeeeeee 
2319  I*  DETERMINE  HAGHUUOE  AND  PHASE  OF  SFECTRUA  • 

292*  I eeteeeeeeeeeeeeeeeeeeeeeeeeeeeeoeeeeeeaeeaeee 

2930  CALL  Hag  -phaseLReal  2(e),laage  2(«),N  >«lnt,Nt«nl«udi<*),Ehut(<)) 

234*  SUIEHD  .  "  ” 

239*  leeeeeeeeeeeeeeeeeeeeeeeeeeaeeeeseeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeaee 
2349  l eeeeeeeeeeeeaeeeeeeeeeeee  tUIAOUTIHE  AAC  FMA9E  eeeeeeeeeeeaaeeeeeeaeeae 
2379  teeeseaeeaeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeaeeaeeeeeeaeaeaeeoeeeeeeae# 
2399  !«  THIS  SUSAOUTIHE  CONFUTES  THE  HACHITUDE  AND  FHA8E  OF  THE  COnFLEK  • 
2399  (•  VECTORS  PROVIDED  IH  THE  VAR  I RILES  '  X  realte)  '  AHD  '  X  1aagt<*>  • 

2499  I*  THE  RE8ULTIHC  HACHITUDE  IS  THEH  STORES  IH  THE  VECTOR  7  R  ■««<•>  '  a 

2419  I*  AHD  THE  PHASE  IS  STORED  IH  THE  VECTOR  '  P  _phase<s>  '  .  • 

2429  leaseeaeaaaecaaeasaaaaeeaaaeeaaaaaaaeaaeeaaaeaaaaaaaaaaaaaesaaaaaaaeaaaa 
2439  SUI  Mag  phase  <X  real  <  a ) ,  x  1  aageC  •)  ,H_po  Int ,  R  •«f(«),P  _pha*e<*>> 

2449  P<«M*aTh<I>  -  -  " 

2499  FOR  t-9  TO  H  point-1 

2449  R  *ag< I >»s5r<X  reaKDeX  r«tl<I)«X  (aageU)sx  laage<I>) 

2479  IF  X  real  (1)01  THEH  *’ 

2499  Ph«t.«-ATH<ADS<X  taage(l)/X  nil(I))) 

2499  ELSE 

2999  Phe^eaPtor; 

2919  END  IF 

2929  X_»lgnaSCH(X  realtl)) 

2939  Y~tlgnaSCH<X~laag«(I)> 

2949  I?  V  st  gn>>9~ THEH 
2999  if  X_s1gn>»9  THEN 

2949  P~phaae  < I >  aPhase 

2979  ELSE 

2999  P phase ( I >aPl e-Phase 

2999  END  Tf 

2499  ELSE 

2419  IF  X_stgn>s9  THEH 

2429  P_phas*<I>a-Phas* 

2439  ELSE 

2449  P  phaae<  1  >»Pha»e-Ple 

2499  END  Tf 

2449  END  IF 

2479  HEXT  I 

2499  SUIEHD 


2499  IMItMIttMMtttMIMMMMMIHHMIMMttMMHtMIMHMItltltMHM 
2799  leeeeeeeeeeeeesseeeeaeee  SUBROUTINE  BIT  REVERSE  eeeeeeeeeeaeeeeeeeeeeeee 
2719  I •••eeeeeaeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeaeeeeeeeeeeeeee 
2729  (a  THIS  SUBROUTINE  PERFORMS  A  BIT-REVERSAL  OPERATION  OH  THE  • 


2739  I*  DEPOSITED  INPUT  VECTORS  INDICES  .  THIS  IS  IH  PREPARATION  FOR  AH  • 
2749  is  IN-PLACE  FAST  FOURIER  TRANSFORM  OPERATION  .  a 
2799  I •••eeaaeeaseeseeeaassear seaeeaeseaeaaeaseaseeeeeeeeaaaeaeseeeaeeeaaeaee 
2749  SUI  Bt  »_rSvtr»»(Vtct«pJn(«),N_uit tor ,  N_pover ,  Vector^out  <•>  > 

2779  DIH  Index_tn< 14), Index^out < 14) 


2799  I seeeeeeeeeaeeeeeeeseeseeeeeeeeeeaeeeeeeeeeeeeeeeeaeeeeoeei 
2799  isstssssasssass  DEFINITION  OF  LOCAL  VARIABLES  aaaaaaaaaaaa 
2999  lesaessseeseesesseesesseeesesesssassseeeeeeseeeeaeeeeseese 
2919  I  Vector  I n< a )  I  INPUT  VECTOR  TO  IE  BIT  REVERSE  SORTED. 

2829  I  H_pover  I  LOG  BASE  TWO  OF  INPUT  VECTOR  LENGTH  . 

2839  I  H  vector  I  ACTUAL  LENGTH  OF  INPUT  VECTOR  . 

2949  I  Index  ln(s)  I  BINARY  INPUT  VECTOR  REFERENCE  INDEX  . 

2999  <  Index  out (a)  t  BINARY  BIT  REVERSED  OUTPUT  VECTOR  INDEX 


2949  I  Vector  out<e>  i  SIT  REVERSE  SORTED  OUTPUT  VECTOR  . 

2979  IsssessaTssasessssaeessasseaaesseeseeeeeeeeeseeaeeeae 

2999  FOR  lag  TO  N_power  I  NULL  BIT  INDEX  WORDS 

2S99  lndex_l n< I~«8 

2999  Index~out < I >«9 

2919  HEXT  I 
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2*20  FOR  TO  N  utetor-l 
293*  IF  1<>#  TmIh 

2940  CALL  Inc  blntry(In4t«  ln(*),H  *o«r) 

2*50  CHO  IF 

2*00  CHI  R#f  l«c  t  <  Ind#x_t  n<*>  , H_pou#r ,  Ind#x_out  <•  >  ) 

2*70  CALL  Bo»#_t«nCJnd«K_1n<4>,H  _poutr ,  I  Input) 

2900  CALL  B**4~t«nCtnd#x~out<4>,H pouor.T  output) 

2990  I 

3000  144  BIT  REVERSED  INDICES  OMMIIOM  BELOW  .44 

3010  1 4444444444444O4444444440444444444444444O444 

3020  V«ctor  out<I  output )»V#c tor  ln<I  Input) 

3030  NEXT  I  ~ 

3040  SUBEND 

3050  *44  4444  4  4  #♦♦###  #44444  4444444444444444  4  4444444444444  44444444444  44  44  4  444  4  4 

30(0  144444444444444444444444  SUBROUTINE  IHC  BINARY  4444444444404444444444444 
3070  *44444444444444444444444444444444444444444444444444444444444444444444444 

3000  It  THIS  SUBROUTINE  PERFORM  R  BINARY  INCREMENT  OPERATION  ON  THE  4 

3090  <4  DEPOSITED  BINARY  VECTOR  '  Word  Inc (4)  '  AND  RETURNS  THE  RESULT  IN  # 
310*  I#  TNE  8AHE  VARIABLE  .  ~  • 

3110  144444444444444444444444444444444444444440444444444444444444444444444444 

3120  SUB  Inc  blnory<Uord  lnc<*),N  powor) 

3130  C*i*ry_fT*g40  "  ” 

3140  Don#  f 140*0 
3150  1 40  ~ 

3100  WHILE  Den#  n««4« 

3170  IF  1 40  THEN 

310C  IF  Word  Inc  < 1)40  THEN 

3190  Uord~lnc  < 1 >■! 

3200  Bont'noo*! 

3210  EL0C 

3220  Uord^lnct 1)40 

3230  CArry 

3240  END  IF  ~ 

3250  ELSE 

3200  IF  Corry  flog«l  THEN 

3270  IF  word  tnc<!)>0  TNEN 

3200  Hord~tnc  <  1  )•! 

32*0  Don#~ri404l 

3300  ELSE 

3310  Hord_lnc<l)>0 

3320  Corry  f 1  1 

3330  END  IF  - 

3340  END  IF 

335*  END  IF 

3300  I *  I ♦ 1 

3370  if  l4N_pow#r  Then 
3300  Don#  f1o04| 

3390  END  IF  ~ 

3400  END  WHILE 
3410  SUBEND 


3420  I  4444444444444444444444444444444444444.44444444444444444. 4  4  444  44444  4  44  444 
3430  14444444444444444444444444  SUBROUTINE  REFLECT  4444444444.4444444444444444 
3440  *444444444444444444444444444444444444444444444444444444444444444444444#44 

3450  I.  THIS  0UBROUT I  HE  TRANSPOSES  THE  POSITION  OF  THE  BITS  IN  THE  INPUT  4 


3400  I.  VECTOR  TO  OPPOSITE  POSITIONS  WITH  RESPECT  TO  THE  CENTROID  OF  THE  * 
3470  *4  BINARY  WORD  .  4 

3400  144444444444444444444444444444444444444444444444444444  44444444444444444.44 

3490  SUB  R*f 1 #c t  <Nord__l  n<  4  )  ,  N  power ,  Word_out  <  4  >  > 

3500  FOR  I #0  TO  H  peu#r- 1 

3510  Word  out  < I >»Mord  ln<N  pOu«r-l-l) 

3520  NEXT  T  “ 

3530  SUBEND 


3540  *44444444444444444444444444444444444444444444444444444444444444444444444 
3550  1444444444444444444444444  SUBROUTINE  BASE  TEN  4444444.444444444444444444 
3509  *44444444444444444444444444444 . 4 4 44 4 .7. * 4 4 44 4 4 4 4 4 4 4 4 4 4 4 44 4 4 4 44 4 44 4 4 4 

3570  I.  THIS  SUBROUTINE  CONVERTS  THE  DEPOSITED  BINARY  VECTOR  TO  A  BASE  • 


</ 
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3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3? 

3 


I*  TEN  INTEGER.  THE  BASE  TEN  NUNIER  IS  RETURNED  IN  THE  VARIABLE  'X  out'.* 
I ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

SUS  S«**_t »n(Wor<J_1 n<*> , N_pow«r ,  X_out > 

X  out*#  ~  ~ 

FOR  I*#  TO  N_powBP-l 
X  out*X  out*Uord  1 n< l )*2* I 
NEXT  I 
SUSEHD  . 


SUBROUTINE  BUTTERFLY 


••  THIS  SUBROUTINE  CENERMTES  THE  NECESSARY  INDICES  DEFINING  THE  • 
I*  BUTTERFLYS  WHICH  FERFORN  THE  IN-PLACE  CONFUTATION*  OF  A  FAST  • 
•*  FOURIER  TRANSFORN  .  • 


SUS  But t «rf 1 y <H_po1 nt , V_po1 nt , St *g* , P<*>  ,0<*> > 


4l#i 

411 

4ia< 

4131 

414 


DEFINITION  OK  LOCAL  VARIABLES 


N_potnt  I 
V  point  1 
Stag*  I 
Span  I 
N_butt«rfly  I 
N^cro**  I 
Up_cro»»  I 
Low  cro**  1 
FCO  ! 
Q<*>  1 


Sp*n*2-Stag« 


NUHBER  OF  FOINTS  IN  FOURIER  TRANSFORN  . 

LOG  BASE  TWO  OF  NUHBER  OF  TRANSFORN  FOINTS. 
STAGE  OF  TRANSFORN  VECTOR  FROCESSING  . 

WIDTH  OF  ROW  SFAN  OF  BUTTERFLY  . 

NUNBER  OF  BUTTERFLYS  IN  TRANSFORN  ST ACE. 
NUHBER  OF  BUTTERFLYS  FOUND  . 

POSITION  OF  UFFER  BUTTERFLY  BRANCH. 
POSITION  OF  LOWER  BUTTERFLY  BRANCH  . 

'P'  INDEX  OF  BUTTERFLY  'N  cron'  . 

'O'  INDEX  OF  BUTTERFLY  'N*<ro»»'  . 


•  DEFINE  INITIAL  BUTTERFLY  • 


Up_cro»»*e 
Low_cro»**Spa/a 
H  cro»»*-l 

I?  Span  > 1  THEN  l  TEST  OUT  CASE  OF  STAGE  ZERO 

WHILE  N  I  cros»<H_po tnt '2-Span 

FOR  T*Up_cro4*  TO  Low_tro»»- t 
N_tro*#*N_«ro4#*I  ” 

P<N_<ro»*7*I 
B(N~cron>*I«Spvi 
NEXT  I 

Up_cro»»*0(H_cro»» '« 1 
Low  cro»»*Up~ cro: »«Span 
END  WHILE 
FUSE 

FOR  1*0  TO  H_polnt'2-l 
F< I >*2*I 
0<t)*3*I»l 
NEXT  I 
END  IF 
SUBENB 


I •••••••#•*••••••••••••#•••  FUNCTION  NODULO 


4131 

4l«l 

4171 

41*1 

41*1 

42#i 

4211 

422i 

4231 


'•  THIS  FUNCTION  RETURNS  THE  NODULO  VALUE 

1*  ARCUNENT  URT  THE  NODULO  LIHIT  SPECIFIED  AS  '  Ned  •  ** 
I  e*ee*»e**e*******o*aaeee***eaaeeeeeee*e*****e**e****ee* 
DEF  FNNoduto<Nu*b*p,Ned_*4x> 

Dueay • I NT  < Nwabar 'Hod^aax  > 

H  eod*Nuab*r-Duaay*Hod  *** 

RfTuRH  n  aed  ” 

FHEND  " 


OF  AH 


INTCCER  • 
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424* 

429* 

4249 

4279 

4299 

4299 

4299 

4219 

4229 

4229 

4249 

4299 

4299 

4279 

4399 

4299 

4499 

4419 

4429 

4429 

4449 

4499 

4449 

4479 

4499 

4499 

4999 

4519 

4929 

4939 

4949 

4999 

4949 

4979 

4999 

4999 

4499 

4419 

4429 

4439 

4449 

4499 

4449 

4479 

4499 

4499 

4799 

4719 

4729 

4739 

4749 

4799 

4749 

4779 

4799 

4799 

4999 

4919 

4929 

4939 

4949 

4999 

4949 

4979 

4949 

4999 


t •••••••••••*•••••••••  to 94 00 T 1 Nt  PR0BUCT_C0NPLEX  •••••••••••••••••*••»• 

to  this  sutitouTiNC  performs  «  complex  multiplication  operation  on  the  • 
I*  DEPOSITED  '  X  roal  ♦  X  taa«o  '  Mil  '  V  roal  ♦  V  taagp  '  INPUT  • 
to  VARIABLES  AMO  RETURNS  THC  RESULT-  IN  THE  VARIABLES  • 
I*  '  2  ml  ♦  2  laago  '  • 

SUB  Arad uet  coaRlox<X  roal , X^(aa9«,V_r*al , Y_taa4o,Z_r#al , Z_1aa40> 
!ooooooooooooooooo#ooooooooooopoooooooooooooooooooooooooppo*o 


DEFINITION  09  LOCAL  VARIABLES 


I  X  roal  I  REAL  PART  OF  FIRST  INPUT  VARIABLE  . 

I  X  laifi  1  IMAGINARY  FART  OF  FIRST  INFUT  VAR  I  AILS . 

•  v"ra at  I  RSAL  FART  OF  SCCONB  INFUT  VARIABLE  . 

•  Y-4a*flo  •  1 MAC 1 NARY  FART  OF  StCOMB  INFUT  VARIABLE 

<  Z-roa1  I  REAL  FART  OF  THE  FROBUCT  OF  INFUT  VARIABLES  . 

<  Z_taaflo  I  I A AC I NARY  FART  OF  FROBUCT  SUA  OF  IHFUT  VARIABLES 


2_roal «X_roal »Y_r*al -<X_laafl*4Y_t  a  ago > 
2-taagooX  roaloY  laago*X  taagooY  roal 
CUSENB 


SUBROUTINE  FNASOR 


to  THIS  SUBROUTINE  CONFUTES  THE  RSAL  AHB  1 AAC1NARY  FARTS  OF  AN  4 

t#  EXPONENTIAL  UNIT  TRANSFORA  FNASOR  RAISES  TO  THE  POWER  '  R_pouor  • 


tooooooooooooooooooooooooooooooooot 
SUB  Phaaer<P1o,N(R(W  roat,N  (aagol 
M  r**l»C0S<2«P1p«R^N> 

H  1 Bagc'S IN<  2*P I ooRsN) 

SUBENB 

toooooooooooooooooooooooooooooocoot 


. . o. SUBROUTINE  ZEROJ'ILL  ooooooooooooooooooo.ooooo 

looooooaoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 
I o  THIS  SUBROUTINE  EX7ENBS  THE  LENGTH  OF  THE  RECORB  TO  THE  NEXT  • 
I*  HIGHEST  POWER  OF  TWO  BY  FILLING  THC  REAAIHBCR  WITH  ZEROES  .  * 


SUB  Zoro  mi(Buaay(t),H  tn,N  out  > 
V  t n« I HT7lOC< N  (n>/L0C(2T>  “  I 
N-out«2-<V  InoT)  I 


RE  BIN  Ouaaydt  Out-1 ) 
FOR  I»H_1n  T0-H_Out-l 
Duaay<I>«9  ~ 

NEXT  I 
SUBENB 


CONFUTE  POWER  OF  TWO  OF  BATA  RECORD. 
INCREASE  RECORD  LENGTH  TO  NEXT  NICN- 


I  CST  PHCR  OF  TWO  . 

I  ZERO  FILL  REMAINDER  OF  DATA  RECORD 


14 


SUBROUTINE  FREQ  BASE 


IOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

I*  THIS  SUBROUTINE  CONFUTES  THE  FREOUENCY  BASE  VECTOR  FOR  THE  • 

I#  RESULTANT  OF  THE  DIRECTIONAL  FOURIER  TRANSFORM  .  • 

toooooooooooooooooooooooooooooooaoaooooooooooooooooooooooooo oooooooooooo 
SUB  Frog  6*»#<H_pol»it,N_fr*Ru*n<y,F_*aoplp,Fr«Ru»nty<*)> 

F  dolta»F  •aapIp/’NjMt n” 
f5r  I»9  t5  N  fropuoncy-1 
FroRuoncy<T>«loF  dtlta 
NEXT  I 
SUBENB 


SUBROUTINE  KILL  OFFSET 


to  THIS  SUBROUTINE  ELIMINATES  THE  DC  OFFSET  FROH  THE  SUPPLIED  • 

I*  VECTOR  BY  SUBTRACTING  ITS  MEAN  AND  THEN  NCCATCS  THE  RESULTANT  .  • 


SUB  Kill  oFFtPt < V*t t or <o> ,N_voitor , Moan) 
FOR  1*9  To  H_vo<tor-1 

Voc  t  or < I >*Ho an-Vot t or < I > 
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4990  NEXT  1 
4910  SUBEND 


4t)«  I*********************************************************************** 
4tH  f ***********************  SUBROUTINE  READF1LE3  ************************** 
4*40  !  44  44444  44444444444444444444444444444444444444444444444444444444a******* 
4*9*  I*  THIf  SUBROUTINE  MAS*  THREE  BATH  VECTOR*  FROM  BISK  STORAGE  OP  • 


49*0  I*  EQUAL  LEHCTM  AHB  BOOTS  THEM  INTO  THE  BUHnY  VECTORS  X<*> , Y<4 > , Zt*> .  * 

497S  l******4***********************************************************4**** 

4**s  sub  R«a4rno<N«a*p, Job*,n*«tu«»,H  ><<•>, 

4**«  Bin  pi i*_naa*»{40l 

3S1S  I 4 4444 44 4444# 4444444  OEM  HIT  I  ON  OP  VARIABLES  4444444444444444444 
9S2*  14  44444444444  444444444444444444444444444444444444444444444444444 

S63B  1  Hut*  I  HARE  OF  SERIAL  PILE  CREATES  TO  RECEIVE  BATA 

9046  I  Job*  •  I  DESCRIPTIVE  JOB  LABEL  OF  COHTAIHEB  DATA 

3*99  1  MadluaR  1  ABBRESS  OP  HASS  STORAGE  AEBIUR 

3B<9  1  N_dtU  I  HUHBER  OP  BATA  ELEASNT8  1H  EACH  VECTOR  . 

3979  <444444444444444444444444444444444444444444444444444444444444444 

39*9  >444444444444444444444444444444444 

39*9  I  ASS1GH  SUPPER  I'O  RATH  TO  PILE  4 

3199  • 444444444444444444444444444444444 

3119  IF  M*dtua*4*i INTERNAL*  THEH 

3129  P I  I  4  A«44*«M4»4»LH4d1U4* 

3139  ELSE 

3149  Pil4  nu«|4|l4dlutUHu«< 

3139  GNO  IP  " 

3 150  ASSIGN  OPath  1  TO  Fll*  nu>l 

3179  1 444*4444444^444444444X44444444444 
SIS9  14444444  READ  JOB  LABEL  444444444 
3199  1 444444444444444444444444444444444 
3299  ENTER  9P(lh  l|Job» 

3219  I********************************* 

3229  1444  ENTER  NUHBER  OF  CLEHENTS  4444 

3230  1444444444444444444444444444444444 

3240  ENTER  OPath  1|N  dtu 

3239  I  44444444444444^444444444444444444 

32S9  144  CORRECTLY  SIZE  BATA  VECTOR  444 

3279  1444444444444444444444444444444444 

32*9  REDIH  X<H  dot a-1  >, Y(H  data-l>,Z<N  data-l> 

32*9  I  444444444444444444444444444444444 

3399  14444444  READ  DATA  ARRAY  44444444 
3219  I  444444444444444444444444444444444 
3329  ENTER  OPath  1 1  X( * > , Y< * > , Z( *> 

3339  ! 444444444444444444444444444444444 
3349  144444  CLOSE  PILE  AHB  BUFFER  44444 

3339  1444444444444444444444444444444444 

33*0  ASSIGN  OPath  1  TO  4 

3379  REDIH  X<499«7, Y<49**> , Z<4S9«> 

3399  SUBEHB 


3390  1444444444444444444444444444444444444444444444444444444444444444444444,4 

3499  144444444444444444444444  SUBROUTINE  HRITEPILE3  4444444444444444444444444 

3419  1 4444444444444*4444444444444* 4444444444444444444444444444444444444444444 

3429  14  THIS  SUBROUTINE  ACCERTS  THREE  BATA  VECTORS  OP  EQUAL  LENGTH  AND  4 


3439  14  HRITES  THEN  TO  A  BISK  STORAGE  PILE  UMBER  THE  FILENAME  SPECIFIED  • 
3449  14  BY  THE  USER  .  • 

3439  1444444444444444444444444444444444444*444444444444444444444444*44*444*44 

34*9  SUB  Hrtt*PH*3(Naa**,  JebS,N*d1u*S,N  dat a, X<* ) , Y<*> , ZC* > > 

3479  DIM  Pi  I*  naa**C49I 


S4B*  144444444444444444*44444*4*44444*4**444*44**444444444*44**44. 

34*9  I*******************  DEFINITION  OP  VARIABLES  *************** 
3390  I  ********************.•**************************************. 
3319  I  N a** $  1  NAME  CP  SERIAL  PILE  CREATED  TO  RECEIVE  BATA 

3329  I  Job*  l  DESCRIPTIVE  JOB  LABEL  OP  CONTAINED  DATA 

3339  I  H*d1u*»  •  ADDRESS  CP  HASS  STORACE  MEDIUM 

3349  l  N  data  '  NUMBER  OP  DATA  ELEMENTS  IN  EACH  VECTOR  . 

3330  I **7**»*«**.*#4#*******#**»4* ******************************* 
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ss<8  i #**#**#****#####*##*#####***###*# 
ssra  i  •  create  data  fils  for  storage  #* 

3388  I  #****#****#****#*#***##*#4*4#**** 

S3M  r i  1  •  *tl#*INT<N  data/9> 

WH  IF  Aodluad^'iIHTfRjiAL*  THEN 
SCI*  mt  n*a*#*H4a4#4A#dlu»# 

Sltl  (CSC 

SO*  FI  1*  naaot^AadlwaSlNaa** 

5*4*  (NO  IF  * 

3*3#  CREATE  SBAT  Fit*  ntnl.Flll  Hit 
SCSA  I ********************************* 

3*7#  I  ASSIGN  BUFFER  I'O  FATM  TO  FILE  • 

3CM  I  *#***#*4****#**4**##****#*4#****« 

3**#  At SIGH  SPath  1  TO  FI  I#  n«a«# 

37M  t  ************#**###***?*********** 

3711  f ••  CORRECTLY  SIZE  SATA  VECTOR  ••• 

3720  t 

37J#  RES  I  n  x<n  data-i>,Y<H  ona-li.KN  dat  a- 1 ) 

374#  ItMtHMttMHHHMHHHMMtM 
373#  I •••••••  STORE  )0I  LASEL  •*••••••• 

37*8  I 

377#  OUTPUT  SPath  I | Job# 

37##  I •«••*••*•*•**•*•••**••»•«•••••••* 

373#  I ••##  STORE  NUHIER  OF  ELEAENTS 
3##«  I ************4*#*****#***#*#***#** 

381#  OUTPUT  8Path_l |H_data 

382#  l #*########*#4############*#*#***# 

383#  I STORE  DATA  ARRAY  ******** 

3848  ! ••#*♦*•♦#*»*»#»#*♦*♦**«••*#»«»#•* 

3838  OUTPUT  tPatn  1|X<*>,Y<*),Z<4> 

3888  I •••••••##*##••*•#•#•##•#••#•**#♦4 

3878  !#*#*#  CLOSE  FILE  AMD  SUFFER  4***4 

3888  I  . . 44444444444444444 

3894,  ASSIGN  SPath  I  TO  4 
3988  SUSEND 

3918  1*444444444444444444444444444444444444444444444444444444444444444444444 

3928  I ****4***4***************  SUBROUTINE  PRINT  OUT  a***#**###**#*#**#*##*** 
3938  l*#4*##****##*##*#4*#***###****#******#######*##*#***********4*****##*4 
3948  I*  THIS  SUBROUTINE  PRINTS  OUT  THE  BEARING  AND  RELATIVE  * 

3958  I*  CONTRIBUTION  FOR  EACH  FRE8UENCY  COAPOHENT  IN  THE  DIRECTIONAL  * 
3988  I*  SPECTRUA  .  • 

3978  I #***#•♦*•*###*##*#*##*###*#*•*•*•#****#***##****•*#*•*********•*•*#**• 
3988  SUB  Print  out < Frtqutncy < •) , Aagnl ludc<*>,Ph**#<*>,N  data) 

3998  PI#*4*ATNTl> 

*888  PRINTER  IS  * 

*818  PRINT  CHR#< 12) 

*828  PRINT  •#***#*#**##***#*******#*#*#**##*######****###•*#*#*#****•******• 


*838  PRINT  *4 *4 4 44 4 *4444 44 4 *4 4* 4 4*4*  FRE8UENCY  AACN I  TUBES  AND  PHASE 


68*8  PRINT  -####*#*###**#######**##*#*###*##***#**#4#*#4###*####*###******### 

•  4  #####••##•" 

•80S  PRINT 
*8*8  PRINT 

<878  PRINT  *Fr*qu*ncy  Aagnltud#  Ph*»#  <D«gr##»)  • 

<888  PRINT 

*898  FOR  1*8  TO  N_d*t*-l 

*188  PRINT  USING  Foraat  1 1 Frtquoneyl 1 > , Aagn 1 1 ud#< 1 > , Pha»« < 1 >*l#0'PI  * 

*118  Foraat  li  I RACE  DD.Kd#, 1«X, D. DDDE, 22X, 8DDD. D 
*128  NEXT  I~ 

<138  PRINT  CHR*< 12) 

*148  PRINTER  IS  1 
*138  SUSEND 

«1<*  |*#*###*##***#**#*#*#*t##*4#*#*#******######**#*#**####*#*#*##**#****#4* 

*176  1 4# *♦##•*##♦*• #4*4 ••###•  subroutine  plot  file  *#*#**#*##•###**#*##***#*# 

<186  I  44# 4 4 44 4 •*••••••• 4 44# •••••••••4444 ••#••••••****•#*•*•••*•••• ••** 4*44**4 
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6190 

C2«e 

62ie 

(220 

(230 

(240 

(290 

(2(0 

(270 

(200 

(290 

(300 
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<3(0 

(370 
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(390 

(400 

<410 

(420 

<430 

<440 

(490 

(4(0 

(470 

<400 

(490 

<900 

6310 

6320 

6330 

6340 

<390 

6360 

6370 

(380 

6390 

6(00 

6(10 

6(20 

6(30 

6(40 

6(90 

6(60 

6670 

6(00 

6(90 

6700 

6710 

(720 

(730 

6740 

6730 

67(0 

6770 

6760 

6790 

6000 

6010 

6020 

6030 

<040 


l«  THI0  SUBROUTINE  ACCEPTS  TMO  BATA  VECTORS  AND  PLOTS  ONE  VERSUS  * 

••  THE  OTHER  .  THE  USER  HEED  ONLY  SUPPLY  THE  LI  AITS  OP  THE  C1VEH  • 
I*  VECTORS  AHO  THE  0ES1REB  PL0TT1NC  COLOR  .  SCALING  AHB  AXES  ARE  AUTO'  • 
la  HAT  1CALLY  PROVIBCB  SY  THIS  SUBROUTINE  .  • 

I  aaassaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaaaassaataaaaaaaataatta 

SUB  PI  Ol_f 1  1a<Xdaia<*  > (  Ydfet  •<  •>  ,  Npl  ot ,  Xal  n,  Xaax,  Yat  n,  Yaax,  Pane  ,  NtwS , Lb  1  SI 
COA  'PldT^blOtll'  XtCalS,YtCala,Xoff»tt,Yofftai 


I aaaaaasaaaaaaa  BEFIHTITIOH  OP  LOCAL  VARIABLES  aaaaaaaaaaaaa 

•  Xdat *<•) 

>  Ydat <<*> 

1  Hplot 
I  Xaln 

•  Xaax 

•  Vain 

•  Yaax 
I  Pint 
<  HauP 
Uhtta*l 
A  co1oPaUhlta 
xT*7ta0 
Xrat  I  "20 
X<antar*(4 
Xp 1 ght • 1 26 
Ybottoa«0 
Yp*i  1-16 
YeantaP»40 
Ytop«9< 

I  X_danoa 
I  Y~danoa 

lltMtHtXII 


CLEAR  AHO  INITIALIZE  GRAPHICS  IP  SPECIFIES  • 

(  aaaa aataaasaaaataaaaa aa aaaaaaaaaaa •««t**t****f* 

IF  NsaSa'Y*  THEN 
CIHIT  1.9 
GRAPHICS  OH 
PEN  Whl  t  a 

VIEWPORT  Xlaf l , XMght , Ybottoa, Ylop 
FRAHE 

I aaaaaaaaaaaaaaaaaaaaaaaaaa»  aaaaaa 
'a  DRAW  PROPER  AXES  FOR  PLOTTING  a 
itaataaaattsaataaaataaaaaaaaataaaa 
IF  Xatn<0  THEN 

IF  Ya1n<0  THEN  I aaaaaaaaaataaaaaaaaaaaaaaaaaaa 

Xof f*4t*Xeaniap  la  POUR  OUAO  AXES  BRAWN  HERE  • 
YaffsaiaYcantar  I  aaaaaaeaaaaa  aaaaaaaaaaaaaaaaaa 

X_dtnoa»Xaax 
Y_d»noaaYa*a 

CALL  Axls_dPbv<Xlaf t , Yof t tat , Xpt ght , Yof f S4t , A_c» I er , -Xaax, Xa*x) 
CALL  Axlt~dP4w<XoffS4t , Ybot toa.Xof f sat , Ytop, A~col op , -Yaax, Yaax) 
ELSE  '  I aa aaaaaa aaaa aaaaaaaaaaaaaaaaaa 

Xaf f sat«Xcantar  la  */-  X  TYPE  AXIS  BRAWN  HERE  • 

Torfiil'Vral 1  l aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

X_danoa»Xaax 
Y  danoaaYaax-Yatn 

c5lL  Axts_dPa«<XI af t , Yof fsat , XpI ght , Yof fsat , A_co1 or,  -Xaax, Xa4x > 
CALL  Axls~draw<Xof fsat , Ybot  t oa , Xof fsat , Ytop, A~eo! op ,  Ya! n, Yaax  > 
EHB  IF 
ELSE 

IF  Yat n<0  THEN  tsaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

XoffsataXpat 1  la  ax-  V  TYPE  AXIS  3RAMN  HERE  • 

Yof fsat *Yc ant ap  ! aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

X_dono»»X»«K-X« I n 
Y~danoa«Yaa*-Ya  t  n 


ABSCISSA  BATA  VECTOR  TO  SE  PLOTTED  . 

ORB 1 HATE  BATA  VECTOR  TO  BE  PLOTTEB  . 
NUABER  OF  BATA  POINTS  IN  VECTORS  . 
SHALLEST  ELEAEHT  IH  Xdatata)  VECTOR  . 
LARGEST  ELEHENT  IN  XdataC*)  VECTOR  . 
SHALLEST  ELEHENT  IN  Ydatata)  VECTOR  . 
LARGEST  ELEHENT  IN  Ydata(a)  VECTOR  . 
DESIRED  COLOR  CODE  OF  PLOTTIHC  COLOR  . 
ORDERS  THE  ROUTINE  TO  CLEAR  THE  GRAPHICS 
DEFINE  THE  COLOR  CODE  FOR  WHITE 
SET  AXIS  COLOR  WHITE 
DEFINE  LEFT  OF  SCREEN 
DEFINE  X  AXIS  RAIL 
X  COORD  CENTER  SCREEN 
DEFINE  RIGHT  SCREEN 
DEFINE  LOWER  SCREEN 
DEFINE  Y  AXIS  RAIL 
Y  COORDCENTER  SCREEN 
DEFINE  top  of  screen 
DENOniNATOR  OF  X  PLOTTING  SCALE  FACTOR 
DEnOHINATOR  OF  Y  PLOTTIHC  SCALE  FACTOR 


CPlottap  Units) 
(Ptotttp  Units) 
<Plottap  Units) 
(Plottsp  Units) 
<P1ot tap  Units) 
(Ptottap  Units) 
(Plottap  Units) 
<Plottap  Units) 
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<•34  CALL  Axl*_dr*uCXof  f  tat ,  Yof  f  »«t ,  Xr  1  gnt ,  Yo f  f  »*t ,  A_col  or ,  Xal  n,  Xaax  ) 

<•<•  CALL  Ax  1  »_dra«(Xof  f  pot ,  Ybot  t  ox,  Xof  f  »»t  ,  Yt  op,  A_eolor ,-Yaax,  Yaax) 

<474  Yof faot* Ybot toa 

<•••  else  i****************************** 

<894  Xoff»*t«Xr*1 1  !•  «  ONLY  X8Y  AXES  DRAWN  HERE  • 

<»••  YorfHt'jrutioi  I****************************** 

<41 •  X  d*noa*X*ax-Xain 

<924  .  t”dono0*Yaax-Yaln 

<934  .  CALL  Ax1s_dr4M(Xoffsot,Yofftot,Xrlght,Yoffs*t ,  A_col  or ,  Xaln,  Xaax) 

<944  CALL  Axlo'drawlXoffaot.Yofftot.Xofftot.Ytop.A  color ,Yo1n, Yaax) 

<934  END  If 

<964  END  If 

<974  X»e*lo*(Xr1ght-XoPfaot  >/X  donoa 
<944  Y»cal»-(Ytop-Yoffaot)/Y  donoa 
<994  END  If 

7444  ' •••••*•••••••••••«••••«•*••••* 

7414  I •  DATA  VECTORS  PLOTTED  DELON  * 

7424  I a***************************** 

7434  PENUP 

7444  CALL  ScalorCXdat a<0) , Ydot a(4 > , Xa t n, Xaax, Vat n, Yaax, X_pl oi ,  Y_pl  ot > 

7434  PEN  Pone 

74<4  HOVE  X J»lot,Y_p1ot 

7474  fOR  I >4  TO  Nplot-1 

7444  CALL  8co1*r<Xdata<  I ) ,  Ydata(  I  >  ,Xai  n,  Xaax ,  Ya4n,  Yaax,  X_p)  ot ,  Y_«l  ot  > 

7494  DRAW  X_pl  ot ,  Y_pl  ot 
7144  NEXT  I 

7114  HOVE  Xc*nt*r,  Ybott-sa 
7124  LDIR  4 
7134  LAIEL  LblO 
7144  SUBEND 


7134  I *•••♦•*♦••**«••••*»••••••*••*••••••*••••*••••♦•••••••*••••••*•**••••••• 

7 1  <4  . . .  SUDROUTINE  AXIS  DRAN  •*•••••*••♦•••••••♦•••••*• 

7174  . . . . . 

7144  I*  THIS  SUSROUT I  HE  0RAN8  AN  AXIS  f*ON  THE  8TARTIHG  COORDINATE  TO  • 


7194  !•  THE  f INAL  ONE  .  IT  ALSO  0UANTIfIE8  THE  ORIGIN  AND  TERHINUS  Of  8AID  • 
7244  la  4X18  .  • 

7214  I •*••♦*•«•*•••**•**••*•♦*•••**•••♦••••»••••••*•*•••»••••••*•••••**••***• 

7224  SUB  Axis  dra«<X»iart , Y»t a«t , Xf 1 na) , Tf t nal , Axl »  color, A  atn,A  aax) 

7234  P 10*4*ATN( l > 

7244  DO  1 1 0*3 
7234  PENUP 
7264  PEN  Axis  color 
7274  PENUP 

7244  HOVE  Xstort,  Ystart 
7294  DRAW  Xf t nal , Yf I na) 

7344  PENUP 

7314  CSIZE  3.4, .3 

7324  CALL  Round* r < A_a I n, 3, A4 > 

7334  CALL  Roundtr<A  aax, 3, At > 

7344  If  XstortaXf Inal  TNEH 

7334  CALL  Label 1 » <Xst art-Do I t a, Yat ar \ ,Pt *'2, Axi »_col or, VAL4<A0> > 

73<B  CALL  Lab*l  1 1  (Xf  Inal -Bol  ta,  Yf  Inal  *2»D*1 1  a,P1  */2,  Axl  4  col  or , VALt( Al > > 
7370  ELSE 

7344  CALL  Lab*  I  1 1 <X»t art , Yat ar t -D*l t a, 4, Ax  I *_e ol or , VAL*< AS) > 

7393  CALL  Lab* 1 1 1 (Xf  I  nal -2*D*I l a, Yat art -D* 1 1 a, 8, Ax  1  a  color, VAL4(Al ) ) 

7440  END  If 
7410  8UDENP 

7424  !•••«»•••«»••«••••♦*•••••••••••♦•*••••••••«••••••••••*••••*»*••••••♦•••• 

7430  !•♦«•••»♦*#*•♦•••*•**•*  SUBROUTINE  LABELIT  a**************************** 
7443  I •••••♦*••»♦••••«••*••••••♦•••*•«•••♦••♦••••*•»•••••»•»•*•••••♦••••••••• 

7430  ••  THIS  SUBROUTINE  SIHPLY  ACCEPTS  THE  CIVEN  LABEL  AND  PLACES  I.'  WHERE 

74<0  I*  IT  13  SPECIE IED  <1*  X,Y  LOCATION)  AT  THE  CIVEN  TILT  ANCLE  .  THE  PEN 

7470  I*  COLOR  'P*nc'  18  ALSO  PROVIDED  BY  THE  USER  .  THIS  8AVE8  A  LOT  Of 

7440  I*  REPETITIVE  CODE  . 

7490  I  a********************* •«»»•»*•♦•*«♦• *♦•*•••♦•«•»»•»•••»•»*»»**»••*♦•••* 
7340  SUB  Lab* I  1 1 (X, Y,  T I  1 1 , Pone , St rng» ) 
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femur 
move  x,y 
PEN  Pant 
LBIR  Tilt 
LA1EL  Strng* 
PENUP 
SUBEND 


laaaaaaaaaaaaaaaaaaaaaaaaaa  SUBROUTINE  SCRLER  aaaaaaaaaaaaaaaaaaaaaaaa 
taaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
I*  -THIS  SUBROUTINE  SCRLES  THE  BATA  PASSED  TO  17  FOR  CRT  PLOTTtHG 
•  a  PURPOSES  . 


SU1  Scalar(X_<Jal «,  Y_dat a, Hat  n,  Xaax  ,  Y» t n ,  Yaax ,  X_p  I  ot ,  Y_plot  > 
COH  /Plot_block'/  Xatata.Yac a)a,Xoff*at , Yoffaat  “ 

X_p  1  ot«M«Talaa<X_dat  a-Xai  nlaXoFPaat 
Y_plot«Y»t  4l|l(Y*4iU>Yiln)«Y«Tful 
SU1EHO 


IMtuttittiKMiMMtttt  SUBROUTINE  ROUNDER  aaaaaaaaaaaataaaaaaaaaaaaaa 
laaaaaaaataaaaaaaaataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaa 
I*  THIS  SUBROUTINE  RCCEPTS  A  NUMBER  OF  ANY  SIZE  OR  SIGN  AND  • 
l«  ROUNDS  IT  TO  THE  SPECIFIED  NUMBER  OF  DIGITS  .  • 
taaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaRaaa 
SUB  Roundar<X_input ,  H_dt  gl to,  X_roundad> 


DEFINITION  OF  LOCAL  VARIABLES  aaaaaaaaaaaaaa 


1  X  input  t  INPUT  NUMBER  TO  BE  ROUNDED 

l  X-du«ay  I  DUMMY  VARIABLE  USED  TO  PROTECT  X  Input 

I  N~dlgtta  I  NUMBER  OF  DIGITS  DISPLAYED  AFTER- ROUNDIMC 
I  X  roundad  I  ROUNDED  COUl VALENT  OF  X  Input 

I  Sign  I  NUMERICAL  POLARITY  OF  ROUNDED  NUHDER 

<  Hagnttuda  I  ORDER  OF  MAGNITUDE  OF  INPUT  NUMBER 

I  Hantlaaa  I  MANTISSA  OF  NUMBER  UNDER  ROUNDING 

I  ARGUMENT  I  ABBRIEVI ATCD  VERSION  OF  MANTISSA. 

I  aaaaaaaaaaaaaaaaaaaaaaaaaaanaaaaaaaaaaaaaaaataaaaaaaaaaaa 
IF  X_lnputOS  THEN 
X_duaay«X_l nput 
Slgn«SGN<X  duaay) 

X_duppyaABf<X  dunay) 

Magcii tudca INTTlCTIX  duaay ) > 

Nam  l  »»a*X_duaay/<  i9~Hagnt  tud«> 

Arguoant  "INTtMam  I  aaa*lSA<N_dlgi  t  *-l  >  >/  IB'<N_dl  gl  t  a* I  > 

X  round«da8lgnaRrgua«nt*lB''Magntcuda 
ELSE 

X  roundad»X  Input 
END- IF 
SUDEND 


aaaaaaaaaaaaaaaaaaaaaaa  SUBROUTINE  STATISTICS 


•  THIS  SUBROUTINE  PROVIDES  THE  MEAN  AND  VARIANCE  OF  A  RANDOM  • 

•  VECTOR  DEPOSITED  IN  THE  VARIABLE  '  Vactor<*>  '  .  THE  MFAN  IS  a 

•  DEPOSITED  IN  THE  VARIABLE  '  Naan  '  AND  THE  VARIANCE  IN  THE  VARIABLE  a 

•  '  Varlanca  '  .  • 


SUB  8t  at  I  at  lca<Vactor <a)  pH_vac  t  or ,  Maan,  Var  I  ant  a  > 


DEFINITION  OF  LOCAL  VARIABLES 


Vat  tor <  a>  I  PSEUDORANDOM  VECTOR  TO  ANALYZE  . 

H  Vactor  I  LENGTH  OF  P8UEDORANDOH  VECTOR  . 

Maan  I  STATISTICAL  AVERAGE  OF  RANDOM  VECTOR  . 

Varlanca.  I  MEAN  SQUARED  AVERAGE  DEVIATION  FROM  MEAN 

Sun  vattor  •  DUMMY  INTEGRATION  VARIABLE  . 
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sire  (•••••••••••••••«••••••••••••••••••••••••••••••••••••••••••••• 

site  i ••••••••••••••••••••••••»••• 

•  190  I*  DETERMINE  MEAN  OF  VECTOR  • 

0206  I ••••••••••••••«••••••••••••• 

•210  Su»_vector«0  .. 

•226  FOR_I«U  TO  N_vector-l 

•230  Suu  vector>Sua  veetoreVector < l > 

•240  NEXT  T  . 

•230  Nean»*uo  vtctor/H  vtctor 

•2C«  I eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 

•270  I*  DETERMINE  VARIANCE  OF  VECTOR  • 

8280  ! •••••••••••••••••••••••••••••••• 

6290  Sub  veeto r»0 

0300  FOR~I«0  TO  N_vector-l 

6310  Sub  otctorafua  utttop«( Vector! 1 >-Hean>*2 
6320  NEXT  T 

6330  Var ( ence'Sua  vectorrN  vector 
•340  8UDEND 
8330  I 

8360  SUBROUTINE  UINDOHER  •♦•••♦*•••••••♦••♦•»••»• 

0370  leeeeeeeeeeeeeeeeeeB#eeeeeeeeeee44eeeeeeeeeeeeeeeee#e«eeeeee#eeeeeeeee 
8360  I*  THIS  8USR0UTINE  FERF0RN8  A  TRIANGULAR  UINDOUINC  OPERATION  • 

C390  I •  ON  THE  SUPPLIED  VECTOR  .  TH18  IS  A  PRELUDE  TO  A  FOURIER  TRANSFORM  • 
•400  t*  OPERATION  AND  IS  INTENDED  TO  REDUCE  SPECTRAL  SIDE  LOSING  .  • 

8410 

8420  SUS  Ut  ndover!  Vector  !•>,  .1  vector) 

8430  FOR  !«•  TO  N  vector-1 
8440  IF  UN_veetorr2  THEN 

0430  Vector! I )*Vector< I >#!2#IrN  vector) 

0460  ELSE 

•470  Vector!  I  >«Vector<  I  >•<  l-2»!  I-N  vectorr2)-'N  vector) 

0460  END  IF 

0490  NEXT  I 
0300  fUSEND 
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22  Stp  III?  23iS7i2S 

nee  i  ••••••<•••••••••••••••••••••••••••••••••••••••••••••«••»••••••«•••••• 

1010  I  a***********************  llOliini  Site  DERIV  •••••••••••••••»••••••••* 

1020  *  ************************  ***************4*******4***»4*»*»***4*4****** 

1030  I*  THIS  PROGRAM  GENERATES  HMD  CONFUTES  THE  FOURIER  TRANSFORM  • 


1040  l«  OF  THE  SPATIAL  DERIVATIVES  d2/d*  AMO  dZ'dy  AMD  WRITES  THE  RESULT-  • 
10S0  I*  AMT  TO  SISK  AMD  THE  ARIHTER  IF  REQUESTED  .  * 

10S0  I*****0***000**0*000********0***0*********4*40***4*a0*00****«********* 

1070  DIH  2dx_aag<409S)  ,  Zdy_aag<  409S > ,  Zdx_* t gh<409C> , Zdy_« t gH< 4090) 

1000  DIM  Nu«<(K),NtM  angtC  lSl.Naa*  id'lUd.Nu*  sdySt  10J,  3000(00] 

1090  Din  PM<409S>FTh*ta<4040>,  Dz_dx<40901 , Dl_dy<4O?0> 

1109  Din  Fr«qu*ncy<409S)l  Duaay<4O90>  * 

1 1  In  HUNT  CMR4(  1 2  > 

1 12(i  I  ************t***********0*4******0*4*4004****************** 

ti3i  i *************  definition  of  program  variadles 

:  i4i  t 

1130  1  Phl<*>  I  ELEVATIOHAL  ANCLE  OF  UNIT  NORMAL.  <Radt  *n»> 

1  ld0  •  Th«t»<»>  '  AZIMUTHAL  ANGLE  OF  UNIT  NORMAL.  (Radiant? 

1170  !  Duaay(*>  I  DUMMY  VARIADlE  USED  TO  ACCEPT  2(0. 

1100  I  Dz  dx(*>  I  PARTIAL  DERIVATIVE  OF  2  MRT  X.  (Rat  loaatr It) 

1190  l  Dz“dy(*>  t  PARTIAL  DERIVATIVE  OF  2  MRT  Y. (Rat (oattrtc  > 

1200  1  Zdx  000(4 )  l  TRANSFORMED  SPECTRAL  MAGNITUDE  OF  Dz  dx<#>. 

1210  t  Zdy~aag(* >  t  TRANSFORMED  SPECTRAL  MAGNITUDE  OF  Dz“dy(*>. 

1220  I  Zdx"*1gh<*>  I  TRANSFORMED  SPECTRAL  PHASE  OF  Dz  dx(*>. 

1230  1  Zdy~atgh(0>  I  TRANSFORMED  SPECTRAL  PHASE  OF  DZ~dy<4>. 

1240  I  N  <J»l 4  I  DATA  POINT  NUMDER  IN  TEMPORAL  DATA  STREAM. 

1230  •  N^potnt  I  N  ddld  FOUNDED  UP  TO  NEXT  POWER  OF  TWO. 

1 2S0  NtdtuxS*") ASICs DATA  F ILE s * 

1270  P(404tATN(l> 

1200  T  tuplfl/<0  I  TEMPORAL  SAMPLING  INTERVAL.  <8«condS> 

1210  F  t avpl 4*00  I  SAMPLING  FREOUCNCY. 

1300  I  N00<  0ngS  I  ANGULAR  FORMATTED  DATA  FILE  NAME. 

1310  I  H00«  tdxS  I  FILENAME  OF  FOJRIER  TRANSFORMED  Dz  dx. 

1320  1  N004_4dy»  !  FILENAME  OF  FOURIER  TRANSFORMED  Dz  dy. 

1330  <*************************************tt***t**a****»**0**t9 

1340  INPUT  "Enur  FILENAME  of  SOURCE  DATA  (Ozlt  Ext*naton>  ....‘.NaaaS 

1330  INPUT  'Inur  SPECTRAL  TRUNCATION  LENGTH . ■  # N  thori 

1300  Utndox  f»"N' 

1370  N000  tngMHuaU*  ANG* 

1300  N004~«dK*0N00«Si*~SDX* 

1340  N000_idy»"N004SS*~SDY* 

1/00  l*****4*******t***t************t*04********0**4***t 

1410  14  SOOT  IN  DIRECTIONAL  AND  VERTICAL  SPECTRAL  DATA  4 

1420  . . .  44444444 

1430  CALL  RttdFl l*3(Maat  angt , Jobt , Mtd I uaf , N  da\  a.Phi  ( 4 >  ,  That  a(» > ,  Dua4y (4)  > 
1440  H_potnt02MHT(LOC(N~data>sLOC(2>*i  > 

1430  I  444»4404444a444004400440444400444044444440«  4444444 
14S0  14444444  COMPUTE  SPATIAL  DERIVATIVE  VECTORS  -4444444 

1470  144  4  4444  4  44  44  44  9044040444  44  440444440444444  40  4444444 

1400  CALL  Nak 4  s I op**(Pht < *) ,  THtt a(* > , N  d«ta,Dz  dx(0>,Dz  dy(»>> 

1490  |000  0400  4  0004404  0444044  04  0400404  0400<  00t44(44»00444* 

130v  1 4  COMPUTE  SPECTRUM  OF  SPATIAL  DERIVATIVE  VECTORS  4 

1310  *4444404444444  4  444  00044000  4440444  44  404  4444444 

1320  DISP  *******  COMPUTING  SPATIAL  DERIVATIVE  FOURIER  TRANSFORMS  ******" 

1330  IF  H1ndow_*»"V"  THEN 

1340  CALL  Mlndovtr (Dz_dx(* »  ,  N_pof nt > 

13C0  CALL  Mind©«*r(Dz"’dy(4?.N^otnt> 

1300  END  IF 

1370  CALL  Fft< Oz_dx(*J ,N_pol nt ,Pt *, Zdx  aag(*)FZdx  tlgh(*>> 

1389  CALL  Ff  t (Dz^OV**  >iN~pot  ol , PI • , Zdy~aag<  *  ) , ZUy”»tgh<  *>  > 

1390  CALL  F*»g  b*»t<H  poXnt.N  ahort.F  tpap I  * , Fr#qut ncy < » ) > 

1S00  l****t**4*t***t***t*******4**0*44*44  •  ^0004004440444 

1010  1 44040004*  OUTPUT  DATA  70  DISK  AND  PRINTER  ******** 

1020  I****t****4**'t****44**4****t0*4*4****t**4»0*****4* 

1030  INPUT  "STORE  Sptetra!  V«t(«ri  0-,  DISK  7  <  VsNs ....",  A* 
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1446  IF  «*•*¥■  THEN 

1436  CALL  Hr t taf I  1 »3 <Nan*_»dx* , Job*, Hadl uat,  N_»nort , Fraquanc y< a ) , Zdw  aag<* 
> , 2dx_»t gh< • ) >  —  — 

1446  CALL  Hr  1 l#fll *3 < Han«_*dy* , Job*, NadluaS,  H_thort , Fraquancyta) , 2dy  aag<* 
>,Zdyalgh<*)>  *'  ™ 

1476  CHS  IF  -  - 

1466  IHFUT  ■PAINT-OUT  Spactrnl  Coaponanta . *,AS 

1466  IF  A*«*V  THEN 

1766  CALL  Prlnt_out3<Fraquancy<*>l2dx_Bag<a>tZdx_*lgh<*>l2dy  aag<a>,Zdy  at 
gh<  a  > , H  abort >  ”  *  “ 

1716  “CNB  IF 
1726  CNS 


1736  . . . . . 

1746  laaaaaaaaaaaaaaaaaaaaaaaaaaa  SUBROUTINE  FFT  aaaaaaaaaaaaaaoaaaaaaataaaaa 

1736  I 

1746  I*  THIS  SU1K0UTINC  PERFORMS  A  FAST  FOURIER  TRANSFORA  ON  THE  • 


1778  la  BEPOSITEB  BATA  VECTOR  '  X  lnput<*>  THE  REAL  PART  OF  THE  SPECTRAL  * 
1768  la  VECTOR  IS  RETURNEB  IN  TH?  VARIABLE  '  F  raal<*>  '  ANB  THE  IMAGINARY  » 

1796  la  PART  IS  RETURNEB  IN  VARIABLE  '  F  taaga<*>  '  .  IT  18  IMPORTANT  TO  » 

1686  la  note  THAT  ,  IN  ORBCR  FOR  THIS  FPT'ALCOR! THM  TO  HORK  THE  HUMBER  OF  a 

1618  la  BATA  POINTS  UNBER  ANALYSIS  MUST  BE  A  POWER  OP  THO  I  I  a 

1626  •aaaaaaa'.aaaaaaaaaaaaaaaaiaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaa 
1638  SUB  Fft(X  I nput < a) , H_pol nt ,PI a,Hagnl tuda(*> ,Phaaa(a) > 

1646  BIH  Raal  H4S94) ,  laaga  l<4894),R«al  2(4694), laaga  2(4694) 

1838  BIH  P_lndax<2646>,a_lndax<2S4S> 

1646  REB1H  R**l_l  <H_pol  n“-l  )  ,  Inag*_l  (N_potm-l  ) 

1878  REOIH  Ra«l  2<H  point-1 ) , laaga 2<N polnt-1 ) 

1666  RAO 

1696  Pt  a*4*ATN< 1 > 

1968  V  point ■ I NT <LOG(M  point )sL0C<2>> 

1916  I aaaaa*a«aaaaaaaaa»aaaa»*a#aaaaaaaaaaaaaaaaaaaaaaaaaaa 
1926  laaaaa  ORBCR  BATA  VECTOR  FOR  INPUT  OF  TRANSFORM  aaaaaa 
1936  I . . . . 

1948  CALL  Bit  ravaraatx  I nput <a) , N point , V  point, Raal  !(•)> 

1936  . . . 

I960  la  null  IMAGINARY  INPUT  VECTOR  a 
1970  laaaaaaaaaaaaaaa  • laaaaaaaaaaaaa 
I960  FOR  1*8  TO  N_^n»  t'2-1 
1990  laaga  1<D-j 
2666  NEXT  I 

2616  FOR  I_»taga*6  TO  V_polnt-l  I  START  STAGE  STROBING  LOOP 

2626  CALL  ButtarflytH  point , V_polnt , I  »t*g»,F  lndax<*>,0  lndax<a)> 

2038  FOR  J  But tarf) ya*  TO  N aolnW-l"  I  STKrT  BUTTERFLY  STROBING  LOOP  . 

2646  ! aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

2636  la  OCTCRMINE  BUTTERFLY  BRANCH  POINTS  a 

2646  l aattaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

2076  PaP_lndax(3_buttarriy) 

2660  QaQ~lndax< j”buttarfly> 

2090  R  _pou«r*FNModulo< J_but tarf lya2*(V_pol nt-l-l_at*ga> ,N_potnt y2> 

2166  CALC  PHa*or<Pla,H  point, R_pouar,W_raal , H_laag«) 

2110  CALL  Product _eoapTax(H_raal ,H_1 nag*, Raal ^1 <0>, Ioag#_l <fl) , Dunay_ranl , 

Ouaay  laagt)  ~  .  ”  *" 

2120  I  aaataaaaaatttaaaoaiaiaaaaanataaaaia 

2136  I#  COMPUTE  UPPER  NALP  OP  BUTTIRPLY  a 

2146  I  aaaaaaaaaaaaaaaaaaoaaaaaaaaaaaaaaaa 

2130  Raal_2<P>aR#al_l <P)*Buaay_r aal 

2140  laaga  2<P>alaaga  l<P)«Buoay  laaga 

2170  l  aaaaoaaaaaaaaaatnaaaaaaaaaaatntoata 

2 1 60  la  COMPUTE  LOUCR  NALP  OP  BUTTERFLY  a 

2196  I  aaaaaaaaaaaaaaaanaaaaaoaaaaaoaaait* 

2206  Raal_2<0)aRaal^l <P)-Buaay— raal 

2216  laaga  2<0)alaaga  l(P)-Buaay  laaga 

2220  NEXT  J  but tarf  I  y 

2236  laataaaaaaaaaaaaaaaaaaaaaaaataaaaaaa 

2240  la  UPBATE  NEXT  CYCLE  SOURCE  VECTOR  * 

2230  I  a 
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2  200 
2270 
2200 
22*0 
2300 
2310 
2320 
2330 
2340 
2390 
2300 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2430 
2400 
2470 
2400 
2490 
2900 
2310 
2920 
2330 
2340 
2930 
2300 
2370 
2300 
2390 
2000 
2010 
2020 
2030 
2040 
2030 
2000 
2070 
2000 
2090 
2700 
2710 
2720 
2730 
2740 
2730 
2700 
2770 
2700 
2790 
2000 
2010 
2020 
2030 
2040 
2930 
2000 
2070 
2000 
2090 
2900 
2910 


NAT  R«»l_la0«*l_2 
HAT  la*0t  la  1*404  2 
NEXT  1_S1404 


I •  DETERMINE  MAGNITUDE  AND  PHASE  OP  SPECTRUM  • 

I *••••*•*••***••****•*•*•••••••••*••*•*•*#**•• 

CALL  H40_RM444<R#4l  2<O,Iaa0t  2<« > *N_po( r*t ,  H*0nt  twd*<*> , Pha*4< #>  > 
SUDEND  ' 


SUDROUTINE  HAG  PHASE 


I*  THIS  SUDROUTINE  COMPUTES  THE  MAGNITUDE  AND  PHASE  OF  THE  COMPLEX  • 
VECTORS  PROVIDED  IN  THE  VARIASLES  '  X  P4*l<«>  '  AND  '  X  1»404<*)  • 

••  THE  RESULTING  MAGNITUDE  IS  THEN  STOREf  IN  THE  VECTOR  7  R  440(*>  '  • 
»•  AHD  THE  PHASE  IS  STORED  IN  THE  VECTOR  '  P_ph*»a<*>  '  .  * 


SUB  Hs0_ph44t<X  r#4lC*>,X  ( aaga < • ) , N_po t nt , R  , P_ph*»* < • ) > 

Pt«a4*ATN<|>  ~ 

FOR  l«0  TO  N_potnt-l 

R  ■40<t>a8OR<X  P4t  *  I )*X  P4*1<I>*X  t440t<I>*X  t*40*<I»> 

IF  X_P44l(I><>0  THEN 

PhM4*ATN<  ABS<X  t*4fl*<l>'X  P4*l  <  I  >  >  > 

ELSE 

Ph44*aF<4/>2 
END  IF 

X_*l0n*SGH<X_Pt4l < I >> 

V~4t0naSCN<X~taa04( I > ) 

IF  Y  »<0n>a0~THEN 
IF  X_4l0n>a0  THEN 
F_phW«(I)a7hUt 
ELSE 

P  Ph444<  I  )«PU>Phti« 

END  T F 
ELSE 

IF  X_sten>«0  THEN 

P~pha»4< I>a-PH**a 
ELSE 

P  pha*4<  I  >aPhAS4-P1  4 
END  If 
END  IF 
NEXT  I 
SUDEND 


SUBROUTINE  BIT  REVERSE 


••  THIS  SUBROUTINE  PERFORMS  A  BIT-REVERSAL  OPERATION  ON  THE  * 
!•  DEPOSITED  INPUT  VECTORS  INDICES  .  THIS  IS  IN  PREPARATION  FOR  AN  a 
!•  IN-PLACE  FAST  FOURIER  TRANSFORM  OPERATION  .  * 


8UB  Bt  t_P4v4P»a< Va< tor_(n<4> ,N_v4«  top, Njpourp, V*ctOr_out  <•>  > 
DIM  Ind«x_tn< 10) , Indax_out < 10)” 


DEFINITION  OF  LOCAL  VARIABLES 


V4tlOP_ln<4> 
N_pou4P 
H_v*ctoP 
Ind4x_)r><#> 
Ind4x~out  <a) 
V4C t op  outco 


I  INPUT  VECTOR  TO  BE  BIT  REVERSE  SORTED. 

I  LOG  BASE  TUO  OF  INPUT  VECTOR  LCNCTH  . 

I  ACTUAL  LENGTH  OF  INPUT  VECTOR  . 
t  BINARY  INPUT  VECTOR  REFERENCE  INDEX  . 

I  BINARY  BIT  REVERSED  OUTPUT  VECTOR  INDEX 
t  BIT  REVERSE  SORTED  OUTPUT  VECTOR  . 


FOR  1  a 0  TO  H_P0U4P  I  NULL  SIT  INDEX  U0RD8 
Ind4x_(n< I )a0 
Indax  out ( I ) a0 
NEXT  I 

FOR  I»0  TO  N  vac  top- 1 
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292# 
2131 
294# 
299# 
29(0 
292# 
299# 
299# 
»••• 
3010 
242# 
3#1# 
3#4# 
3090 
30(0 
3070 
3000 
3090 
3100 
3110 
3120 
3110 
3140 
3190 
31(0 
3170 
3100 
3190 
3200 
3210 
3220 
3230 
3240 
3230 
32(0 
327C 
32.  > 
3290 
3300 
3310 
3320 
3210 
3340 
3390 
33(9 
3379 
3300 

3399 
3490 
3410 
3420 
3439 
1440 
3499 
34(0 
1470 

3400 
1499 

1909 

1910 
3920 
3930 
1949 
3990 
13(9 
1970 


10  1O0  THEN 

CALL  Inc  bln*ry<Indox  ln<0,N _pov4r> 

END  IF 

CALL  04f  l*ct  <  lnd*x_tn<4.i  ,  M_poupr,  IndOx_out  (•>) 
CALL  Baat_t*n< Ind«x_tn< 4) , H_pouor , I  Input) 

CALL  04»«”»4M‘3"04*r®ut  <4><N  _pou4r.T_output ) 

01 T  REVERSED  1N01CC0  OPERATION  BEL  OH  .44 

1  4 04 40404040044404400404040 000000404 40400  OOP 

Vdctor  out < 1  output )4Vo«tor  in()  Input) 

NEXT  l 
0UBCNS 

I4P4044V44404444444404040444<0000<044000POOOOPOP< 
I  4440<4040404444<400< 

I  44<0440<04004000444< 


(UB0OUT1NC  INC  BINAAV  <• 


'•  TH19  SUBROUTINE  PERFORMS  A  BINARY  1NCRENEHT  OPERATION  ON  THE  * 
14  DEPOSITED  BINARY  VECTOR  '  Word  tnc<4>  '  AND  RETURN#  THE  RESULT  IN  4 
t  *  THE  SAM  VARIABLE  .  ~  4 


SUB  ln«_bl npry<Hard_ln« <o),N_povor > 
Corry_fT«040  ~  ~ 

Bono  7 10040 
I-#  ~ 

HMILE  Bono  rt4040 
IF  I <0  THEN 

IF  Hord_M<<|)40  THEN 
Hord_lne<I )<i 
Bono_f I  op* I 
ELSE 

Hardened  -40 
Carry  FI  00  *1 
END  IF 
ELSE 

IF  Curry  Ftop-l  THEN 

IF  Hardline <1)40  THEN  - 
Nord~tnc  < I >■! 

Dan*- f  1 00*  1 

else  " 

Nor d_1nc <I>«0 
Carry  fl 00*1 
END  IF 
END  IF 
END  IF 
I-I*» 

IF  I *H_po»or  Tm£N 
Bono  flo0*l 
END  IF 
END  WHILE 
SUBEND  . 


SUBROUTINE  REFLECT 


•  THIS  SUBROUTINE  TRANSPOSES  THE  POSITION  OF  THE  BITS  IN  THE  INPUT  o 

*  VECTOR  TO  OPPOSITE  POSITIONS  HITH  RESPECT  TO  THE  CENTROID  OF  THE  4 

4  BINARY  NORB  .  4 


SUB  RoftOCt<Kord  tn<4)(N  pou*r,Mor 
FOR  1 40  TO  H_pOUOr-l 
Word  out<I)4Nord  ln<N_pouor-I-l ) 
NEXT  T 

SUBEND 


t  <4>> 


SUBROUTINE  BASE  TEN 


THIS  SUBROUTINE  CONVERT-  THE  DEPOSITED  BINARY  VECTOR  TO  A  BASE 
TEN  IMTS6E4 . THE  BASE  TEN  NUMBER  IS  RETi  tNCB  IN  THE  VARIABLE  'X  out' 


87 


NWC  TP  6842 


3SS#  I 

)9H  SUB  lui  i«n<Ward  ln(>),N _pow*r,X  out  > 
368#  X  out*#  ~ 

361#  FOR  !•#  TO  X _powOr- 1 

3621  X  out«x  out«Hord  1n<I)»2-I 

303#  NEXT  I 


304#  SUItHD 
309#  I 

300#  I  •••••••••••••»*••••••«•  SUBROUTINE  BUTTERFLY  MtHMmmMttMMtattt 


307# 

36SR  I*  THIS  9U9R0UT I  MO  CIHCRNTES  TMC  NICIUMy  IHItCC*  SEFINIMC  THt  • 

309#  I*  BUTTERFLIES  WHICH  PERFORM  THI  IN-PLRCt  CONPUTRTIOHS  OF  R  FRST  * 
3711  l*  FOURIER  TRRNSFORfl  .  • 

37 1#  !•••••••••••••*•••••••••••••••••••••••••••••••••••••••••••••*••••••••••• 

372#  SUI  But lorf 1 y<H_pot nt , v_pot nt , Staqo, P<»> , #<• » > 

373#  )••*••••••••••»••••••••••••••••••••••••••••••••••••••••«••••«• 

374#  !••••••••••••••  DCF1HITJ0H  OF  LOCRL  VMIMUI  •••••••♦••••«•♦» 

379#  !••••••*••••• 

376#  I  N_potnt 
377#  I  V^pof  nt 
379#  I  St «o* 

37*0  I  twin 
3000  t  H_bull#rfly 
3# I#  t  H~ero»4 
3020  I  Up_Croii 
3131  I  Low  crott 
3S4S  I  P<*7 
305#  I  0<*> 

3#S#  itmimMH 
3#7#  lpu«2*lii<|« 

3#t#  1#0*0«4*0*«*0***«*0040400000* 

3#*#  I*  OEFINC  ihitirl  suttcrflv  * 

3*0#  I •««•»»*••*•**< It »?»*•••••••! 

3*1#  Up_ero«»"B 

■992#  i.Ow_ero»«atpan  « 

C93#  H  1 

394*  IF  Span) 1  7HCH  I  TEST  OUT  CHOC  OF  STRCE  ZERO 

3*30  MMIk.fi  H  Span 

3*0#  FOR  TaUp^ero**  To  low_ci*OSO-i 

3*7*  M  cr«M«M  ~ 

39##  F7H_<ro»*T-: 

3**#  0<H  cron ;*I  »Spon 

4###  HtXT  I 

4# 1 #  Up_cro»»*8(N_trot» )♦ 1 

4#2#  Low  croooaUp  cro»»*tpont 

4#3#  CHD  MhTlC 

4#4#  ELSE 

4#9#  FOR  la*  TO  H _potnl'2-l 
4#«#  F<I>a2*l 

407*  0< I >«2* l  ♦! 

4##0  HEXT  t 
4««#  IMP  IF 
41##  SUIENfi 
411#  I 

412#  1 040040 400# #040*0 *000004000  FUNCTION  MODULO  •#•#*♦••••••••*»•♦*#•#*#•♦•• 

413#  I  •  ♦••••••*******  ••••»••»•••••••*•••#•••••  •*»••••••••••»•*••♦•••••••••♦•• 

414#  to  THIS  FUNCTION  RETURM8  THE  MODULO  VNLUt  OF  RN  INTEGER  • 

413#  I •  MRCUMENT  URT  THE  MODULO  LIMIT  EFECIFIED  RE  '  Mod  box'  .  • 

416#  I 

417#  9EF  FNHoduto<Nuab*r,HOd_*4x> 

4  1 1#  Puo4y«INT<Nupbor^Nod_4*j<> 

419#  H  aodaNuabtr-luaayaHet  aax 
42##  RlTURN  M  aod 
421#  FHEHP 


422#  I «*•»••••• •••f ••••••••••••«••••••»«• »t444*40*o«*»»**«»«4»4*»»*4*t404»t 

423#  f**a*a4*###4^«*4#*«##*  SUSROUTIHE  FRODUCT  COMPLEX  ••••»«•••♦•••••••••• 


I  NUMIIR  07  POINTS  IN  FOURIER  TRRMSFORM  . 

I  LOG  ERSE  TWO  OF  NUMIER  OF  TRRMSFORM  POINTS. 
I  STRCE  OF  TRRMSFORM  VECTOR  PROCESSING  . 
f  WIDTH  OF  ROW  SPRN  OF  DUTTERFLV  . 

I  NUMRER  OF  IUTTERFLIIS  IN  TRRMSFORM  STRCE. 

I  NUMIER  OF  IUTTERFLIIS  FOUND  . 

I  POSITION  OF  UPPER  SUTTERPLV  SRRMCH. 

I  POSITION  OF  LOWER  SUTTERFLV  DRRHCM  . 

I  *P'  INDEX  OF  SUTTERFLV  'H  cpo»»'  . 

I  '0'  INDEX  OF  DUTTERFLV  'N~ero»»'  . 
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PI 


I*  THIS  SU1R0UTINE  PERFORMS  *  COMPLEX  MULTIPLICATION  OPERATION  ON  TNE  • 
I  #  DEPOSITED  '  X  raal  *  X  ( a«e*  '  AND  '  V  r*»1  *  V  tale*  '  INPUT  • 
!•  VARIABLES  AND  RETURNS  THE  RESULT-  IN  THE  VARIADLES  • 
I*  '  Z_r«al  ♦  Z_ta*g*  '  • 

i ••»••»•»•»••»•*«•*••••« 

BUS  Produet_*«*pl*x<X_r*al ,  X_laaga ,  Y_r**l ,  Y^t  a*e*, Z_r*al , Z_t aafl*  > 


DEFINITION  OP  LOCAL  VARIAtLCS 


I  X  r««;  I  REAL  PART  OP  FIRST  INPUT  VARIABLE  . 

>  •  IMAGINARY  PART  OP  FIRST  INPUT  VARIABLE. 

•  Y~r*«l  I  REAL  PART  OF  SECOND  INPUT  VARIABLE  . 

>  Y~ta«4«  •  IMAGINARY  PART  OF  SECOND  INPUT  VARIABLE 

I  Z~r**1  '  REAL  PART  OF  THE  PRODUCT  OF  INPUT  VARIABLES  . 

•  Z~taag«  !  IMAGINARY  PART  OF  PRODUCT  SUN  OF  INPUT  VARIABLES 

I  •****«*•«•  **«##«** #**##4###***##*ft**##4*#*#*** **•##*##«#**•• 

Z_r*al  »X_r«*1 «Y_r**l  -<X_ta*fl**Y_t*4fl*> 

Z~ta«e..X  r«*l*V  ta«g«*X  taae«*Y  p»*l 
SUBEND 


SUBROUTINE  PHASOR 


t»  TNI 8  SUBROUTINE  COMPUTES  THE  REAL  AND  IMAGINARY  PARTS  OF  AN  * 

!»  EXPONENTIAL  UNIT  TRANSFORM  PHASOR  RAISE.!  TO  THE  POHER  '  R_pow»r  • 


SUB  Pha*or(Pl«,NlRlU  r*a1fM  laag«> 
H  r*«1 *COS<  2*P 1 ••RpnT 
H~taae**SIN(2»PI**R/N) 

subend 


SUBROUTINE  ZERO_FlLL  ••••*••••♦♦•##•••••••*••• 


>*  THIS  SUBROUTINE  CXI  ENDS  THE  LENGTH  GP  THE  RECORD  TO  TNE  NEXT  • 

!♦  HIGHEST  POHER  OF  ThO  BY  FILlrfMC  THE  RSMAJHDER  WITH  ZEROES  .  • 


SUB  Zero  Ft  I  I <Buaay < •> ,N  tntN  o 
V  tn»INTTLOC<N  fn>'LOC<a“> 
N“ou»«2*<V_tr)M> 
sFdIM  Duaay>(M_out~l  5 
FOR  I-H_tn  TO_H_out-I 
Duaay < I >»8 
NEXT  I 
SUBEND 


!  COPPUTE  POMER  OF  TWO  OF  DATA  RECORD, 
t  INCREASE  RECORD  LENGTH  TO  NEXT  HIGH- 
t  EST  PHER  OF  THO  . 

t  ZERO  FILL  REHAINDER  OF  SATA  RECORD  . 


SUBROUTINE  MAKE  SLOPES 


!•  THIS  SUBROUTINE  GENERATES  THE  SPATIAL  DERIVATIVE  VECTORS 

I*  FROM  THE  ANCULAR  FORMATTED  HAVE  COAFUTER  DATA  FILES  . 

I »»•»»••«••*••»#«»*•#»*•*»•#*»•*•»•*•»••••»*•»»»•**♦*««***•*♦♦**♦*♦»* 

SUB  M«F*  t lop»»<Phl  <*>,Th»t«<»>,N  dat*,Dz  dx<*>,Pz  dy<»>> 

FOR  1*0  TO  H  da**-l 

Dz  dx<  I  > *~TAM(Ph t  < I ) > *COS<  That  *( I >  > 

Dz~dy<  I  >*-TAN<Ph  t  (  I  >  >*SlN<Th*t A<  I  >> 

NEXT  T 

SUBEND 


SUBROUTINE  NRITEFILEJ 


'♦  THIS  SUBROUTINE  ACCEPTS  THREE  DATA  VECTORS  OF  EQUAL  LENGTH  AND  ♦ 

'•  WRITES  THEN  TO  A  DISK  STORAGE  FILE  UNDER  TNE  FILENAME  SPECIFIED  • 
I*  BY  THE  USER  .  * 

I •*••••••*•••••• it****************************************************** 

SUB  MrltaFt  l*3<Naa*St Job*, M*dt oa* ,N  dat a, X< * > , Y< » ) , Z< •> » 

DIM  F 1 1 •  naa*tt4R] 
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4999 

491* 

4929 

4939 

4949 

4999 

49(9 

4979 

4999 

4999 

9999 

9919 

9929 

9939 

9949 

9999 

99(9 

9979 

9999 

99*9 

9199 

9119 

9129 

9139 

9149 

9199 

91(9 

9179 

9199 

9199 

9299 

9219 

9229 

9239 

9249 

9299 

92(9 

9279 

9299 

9299 

9399 

9319 

9329 

9339 

9349 

9399 

93(9 

9379 

9399 

9399 

9499 

9419 

9429 

9439 

9449 

9499 

94(9 

9479 

9499 

9499 

9999 

9919 


I********  »«•••••••  DEFINITION  Of  VARIABLES 


'  N*a*«  I  NNNC  Of  SCRIM.  FILE  CREATED  TO  RECEIVE  DATA 

I  JoB»  I  DESCRIPTIVE  JOD  LABEL  OF  CONTAINED  DATA 

I  NodiuaS  I  ADDRESS  OF  NASS  STORACE  NED  1 UN 

i  n  dot •  Thunder  of  data  elenehts  in  each  vector  . 

KlTHHtKttttlMIMMttHHMtmmtlHMMHMmHiHtt 

I********************************* 


I*  CRIAtC  DA TP  FILE  FOR  STORACE  ** 
I •»#»##»••*#*#*»*•##•*•##*#*#•#♦*» 
Ftlo  *(I*«INT<.l*N  <1*10/ 9 > 

IF  N«4t «■*■*!  lUTClNAL*  TMEtl 
F(1*  naatf ■H«a*SlH*dluaS 
ELSE 

Flit  ntM*>H<dlu(llNu« 

END  IF  ~ 

CREATE  DDAT  File  n*a*l,  Ft  I  •  *t  x« 

I *•••«••••*•••••*•••*••*••**•*»••* 

i  assign  duffer  i/o  fatn  to  file  • 


ASSIGN  SPatH  I  TO  fll*  noma* 


1**  CORRECTLY  SIZE  DATA  VECTOR  *•* 

144*444444444444444444444444444444 

RED  IN  X<N_data-l>,  V<N_data-l  >,Z<N_data-l> 

(444444444444444444444444444444444 
14444444  STORE  JOB  LABEL  444444444 
1444444444444444444444444444*44444 

OUTPUT  SFoth  1| Job* 

(444444444444444444444444444444444 
1*444  STORE  NUNDER  OF  ELEHENTS  444 
(444444444444444444444444444444444 

output  SPoth  i|N  data 


14444444  STORE  DATA  ARRAY  44444444 
I *4444*444444444**44*4*4*4**444*44 

OUTPUT  SPath  l|X<4)|Y<4)tZC4) 

I********************************* 
1***4*  CLOSE  FILE  AND  DUFFER  *4*4* 
I********************************* 
ASSIGN  9Path_l  TO  4 


SUIEND 

(44444444444444444*44444444444444444444444444444444444444444444444440444 

( 444*44444444444444  44444  SUBROUTINE  REABFILE3  4444444444444444444440 *444 
I 444444444444444044 »44****4*4*4 44*4 444444444444 *444 44*4*44*444*4*4*44*44 

I*  THIS  SUBROUTINE  READS  THREE  DATA  VECTORS  FROH  DISK  STORAGE  OF  * 

I*  EQUAL  LENGTH  AT.O  TOOTS  THEN  INTO  THE  DUHHY  VECTORS  *<•>, Y<»),2<4>.  * 

I ****************4***  *************************************************** 

SU»  R*adF( l*3<Naa*«, JoO* ,  Hod  I ua», M_dat *,*(*> ,Y<*> , 2C*> > 

DIN  FI 1*_naa**C49] 

(444440444* 4*4**444*** *6*44***4*44444 4444****4**444* 44 44*4444444 

. . *********  DCF jNITION  OF  VARIABLES  *•••*••*•**•*••*♦** 

I ••••••••••••••••••••«•••••••••••••••••*•»••»••••*••••«•••••••»• 

I  Hast*  I  NANS  OF  SERIAL  FILE  CREATED  TO  RECEIVE  DATA 

I  JoB*  I  DESCRIPTIVE  JOD  LABEL  OF  CONTAINED  BATA 

I  N*dl ua*  I  ADDRESS  OF  NASS  STORACE  NCDIUN 

I  N  data  I  HUHBCR  OF  DATA  ELENEHTS  IN  EACH  VECTOR  . 

I  ****************************************** 4*******************4 
I ••••*••••*•••*•••*••••••••••••*•• 

I  ASSIGN  BUFFER  I/O  PATH  TO  FILE  * 

l ••(•••••••••«••»•*••••*•••••••*•• 


IF  N4d(ua*4*l INTERNAL*  THEN 


~.z*9  F I  1 4  naa***Naa*ftN*dl  ua* 

9939  ELSE 

9949  Fl  l*  naaaMNodl waflNaat* 

9999  END  IF 
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i 


r 


i 

I 


* 


t 


I 


a 


I 


354#  AIIICN  Math  1  TO  FH*  null 
997)  1 •••••••••••••••••••••*••••••••••• 

3311  (*••****  REAS  JO)  LABEL  ********* 

9311  ! ********************************* 

MM  ENTER  Math  if  Job* 

90)  I********************************* 

9429  I***  ENTER  NUMBER  OF  ELEMENTS 
Ml)  ImMHHMMIHIIMIHIHHIHM 

M4)  ENTER  Math  1|N  data 
M9)  I . . 

944)  1**  CORRECTLY  SIZE  BATA  VECTOR  *•* 

9S7)  (••••••••••••••••••••••••••••••••a 

90)  RESIN  K<N  data- 1  > ,  Y<H  dat  a-1 > ,  Z<M  dtta-1) 

9(H  I  ********************************* 

37M  I  REAS  BATA  ARRAY  •••*••*• 

971)  I********************************* 

972)  ENTER  Math  1|K<*>,V<*>,Z<*) 

973)  I********************************* 

974)  t***4*  CLOSE  FILE  ANB  SUFFER  *»••• 

979)  I 

974)  ASS  I  Cm  Math  I  TO  • 

977)  RESIN  X<4)*«7,V<4)*6>,2<4)*6> 

97))  SURENS 

97*)  I********************************************************************** 
9)))  t***********************  SUBROUTINE  FAINT  OUTS  ************************ 
9)1)  •*•*•***********•***********************•*•••*•••••••••••*••••••*•*•••• 

992)  I*  TNI)  SUBROUTINE  FRINTS  OUT  A  SIX  VARIABLE  BATA  TABLE  ON  THE  • 

9)3)  I*  LINE  FRIHTER  .  • 

9)4)  I  ********************************************************************** 
9)3)  SUB  Frtnt  out3<Xl  <*>  , X2< *> ,X3C*>, X4<*> , X9<*> ,N _prtnO 
994)  FR INTER  ll  4 
9)7)  Pl*-4*ATN<1> 

9)9)  FRINT  CHR*< 1 2> 

9)*)  FRINT 
9*9)  FRINT 

9*19  frint  'HiiMiiiittimiMmimimimmiiitHiiMiiimtiHiiiiiiiii 

IIIIIIHtH1 

9929  PRINT  ******************  SPECTRAL  CONFONENT8  OF  SPATIAL  SERIVATIVES  •»*»• 


9*3)  PRIM 


9)4)  FRINT 
9*9)  PRINT 

9*49  PRINT  *Frtqu*nc  y  MAC  F<dZ'0«>  PHASE  FIdZ'dx)  MAC  F<dZ/dy>  PHASE 
F<dZ/dy>  * 

9*7)  FRINT 

9*S)  FOR  I*)  TO  N  prlnt-l 

9*9)  FRINT  USINC  Foraat  1 1  XI  < I  > ,X2<  I  ), X3<  I >♦  I ))/Ft *,X4< I> , X9< I  >41))'Pt* 
4)99  Foraat  It  INACE  IX , SB. BBS, )Xf S. BSE, 1 BX, SOBS. B,BX, B. BSE, 7X.SBBB. » 

491)  NEXT  l“ 

492)  FRINT  CHRS< 12) 

4)39  PRINTER  IS  I 
4)4)  SUBCNB 

4)9)  I ••••**•••*••••»••*•••*•••**•••♦••*••••••••••••••••••••••••••••••••••••• 

«)«)  1444444444*44444444444444  SUBROUTINE  FREO  BASE  44*4*4444444*4*44****4444 

07)  l*************************************************4**************4****4* 
<)))  I  *  THIS  SUBROUTINE  CONFUTES  THE  FREQUENCY  BASE  VECTOR  FOR  THE  • 

0*9  I*  RESULTANT  OF  THE  SIRECTIONAL  FOURIER  TRANSFORM  .  '* 

CIO  I  •♦  ••  ••  ••••*••*•  •*•*•••••*••••* ••  ••••*•••••4 *•*••••  a********** 4*4*** •  *** 

Ell)  SUB  Fr*q  t>»  *<N_po ( nt , N_7r«qu*ney , F_*aap1 * , Fr*qu*nc y < • > > 

412)  F  d*1t*«F  taaplo/'N _po t nt 
03)  PS)  !•)  T?  N  Tr*qu*ncy-1 
#14)  Fr*qu*ncy <T)" I *F  d*1ta 
09)  NEXT  I 
06)  SUBENB 

617)  I*********************************************************************** 
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(IN 

<19* 

<288 

<218 

<22* 

<29* 

<24* 

<298 

(2M 

<27* 

(211 

<2sa 

(3M 
<3ia 
<329 
<338 
<348 
<3S8 
<3<e 
<378 
<388 
<398 
<488 
<418 
<428 
<438 
<448 
<498 
<4<9 
<478 
<488 
<498 
<988 
6918 
<928 
<938 
<948 
<998 
<9<8 
<978 
<988 
<998 
M  88 
<<18 
«28 
<<38 
«48 
«98 
<«e 
<<78 
«« 
M98 
<788 
<718 
<728 
<738 
<748 
<798 
<7<S 
<778 
<788 
<798 
<888 
<818 
<928 
<938 


i 

i 

I 


SU8R0UT1HC  PLOT  FILE  *****************4******** 

I*  THU  SUBROUTINE  ACCEPTS  THO  SNTP  VECTORS  AND  PLOTS  ONE  VERSUS  • 

I  •  THE  OTHER  .  THE  USER  NEED  ONLY  SUPPLY  THE  LIMITS  OF  THE  GIVEN  4 
I*  VECTORS  AN9  THE  DESIRED  PLOTTING  COLOR  .  SCALING  AND  AXES  ARE  AUTO-  • 
1*  HATICALLY  PROVIDED  »Y  THIS  SUBROUTINE  .  • 

ItmMMMHtMMtHHIMttlltltfKtlttlKMMMIMtmiMtlitttHHUt 
SUB  Pl8t_fi  18<K<84  4<4 ),Yd4ta<*),Nplot  .Xaln.Xaax.Yatn.Yaax.Pcnc.NawS) 

CON  <'Pl0t_61Otk<'  X»«  *1  * , Y*C 4l  8  >  Xof  f  4*4  ,  Yof f »*t 

144444444844444448444884444444848444444444844444444444444444 

144444444444444  BEFIHT1TI0N  OF  LOCAL  VARIABLES  4444444444444 


I  X<8t8<4> 

I  Ydat*<*) 
f  Np lot 

•  Xat  n 
I  Xaax 

*  Yttn 
I  Yaax 
1  P*n< 

1  Newt 
Uh 1 1 4* 1 
A  color-Whtt* 

xT4ft-9 
Xr 411-28 
Xc*nt*r-<4 
Xrlght-128 
Ybottoa-8 
YP41 1-1< 

Y<8f»t8f-48 
Vtop-9< 

1  X_d8noB 
I  Y~d*noa 
1444444444444 

I  444444444444 _ _ _ 

144  CLEAR  AND  INITIALIZE  GRAPHICS  IF  SPECIFIED  4 

144444444444444444444444444844444444444444444444 

IF  N*t»8a*V  THEN 
GIHIT  1.9 
CRAPHICS  UN 
PEN  Uhl ta 

VIEWPORT  XI 8ft .Xrlght .Ybottoa.Ytop 

FRANC 

1444444444444444444444444444444444 

14  SRPU  PROPER  AXES  FOR  PLOTTING  4 

1444444444444444444444444444444444 

IF  Xal n<8  THEN 

IF  Ya1n<8  THEN  1*4 44 44 >44*44 -4 444 44 44444444444 

Xoff»*t-X«*nt*r  14  FOUR  3UAi>  AXES  BRAUN  HERE  • 
YOff»*t-Yc*nt#r  (444444444444444444*4444*444444 

X_<*noa-Xa%x 
Y  d*noa-Yaax 

C^LL  Axl *_draw<Xl  *f t , Yof  f  *4t  t Xr I ght , Yof f**t ,  M_eol  or,  -Xaax,  Xaax) 
CALL  Axl*  dra*(Xof  f  »et ,  Ybot  toa,  Xof  f»*t ,  Yt  op,  A  c  ol  or , -Yaax,  Ya*x  > 
ELSE  “  I****************************** 

Xof f *8t -Xc*nt *r  I*  */•  X  TYPE  AXIS  BRAUH  HERE  * 

Yof f  88t -YP41  I  (44444444444*4444**4*4444444*44 

X_«noa4Xa4x 

Y_d*noa-Ya*x-Ya 1 n 

cSLi.  Ax(  »_drau(Xl  «f  t ,  Yof  f  •* t ,  Xr  i  ght ,  Yof  f  »#t ,  A_cel  or ,  -Xaax,  Xaax) 
CALL  Ax(»“<rau<Xoff »»t , Ybot t oa, Xof f sit , Ytop, A~color, Yal n, Yaax) 
END  IF 
ELSE 

IF  Yaln<8  THEN  I  ****************************** 

Xoff*8t-Xrpl 1  ’  I*  ♦/-  V  TYPE  AXIS  BRAUN  HERE  * 

Yof f»8t -Y<*nt*r  ( ****************************** 


I  ABSCISSA  DATA  VECTOR  TO  BE  PLOTTED  . 

1  ORDINATE  DATA  VECTOR  TO  BE  PLOTTED  . 

I  NUNBCR  OF  DATA  POINTS  IN  VECTORS  . 

I  SMALLEST  ELEMENT  IN  Xdata<*>  VECTOR  . 

I  LARGEST  ELEMENT  IN  Xdata<*>  VECTOR  . 

1  SMALLEST  ELEMENT  IN  Ydata<«>  VECTOR  . 

I  LARGEST  ELEMENT  IN  Ydaia<*>  VECTOR  . 

I  DESIRED  COLOR  CODE  OF  PLOTTING  COLOR 
I  ORDERS  THE  ROUTINE  TO  CLEAR  THE  6RAPH1C8 
I  DEFINE  THE  COLOR  CODE  FOR  IM1TE 
I  SET  AXIS  COLOR  UNITE 
I  DEFINE  LEFT  OF  SCREEN 
I  DEFINE  X  AXIS  RAIL 
I  X  COORD  CENTER  SCREEN 
I  DEFINE  RIGHT  SCREEN 
I  DEFINE  LONER  SCREEN 
I  DEFINE  Y  AXIS  RPtL 
I  Y  COOROCENTER  SCREEN 
I  DEFINE  TOP  OF  SCREEN 
I  DENOMINATOR  OF  X  PLOTTING  SCALE  FACTOR 
I  DENOMINATOR  OF  Y  PLOTTING  SCALE  FACTOR 


<Plott*r  Unit*) 
<P1ott*r  Unit*) 
<Plettsr  Unit*) 
<P1ott*r  Unit*) 
(Plottsr  Unit*) 
<P1ott*r  Unit*) 
<P lot t *r  Unit*) 
<P1ott*r  Units) 
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<•4*  X_d*nOB-Xo*x-Xain 

<•94  Y~d*noo-Yoax-YBl n 

(4(0  CALL  Axt»_dr*u<Xoff»*t , Yoffaet .Xrlflht, Yofftet ,A_eclor,X»tn,Xoax> 

4474  CALL  Axi  »“dr**<Xof f set , Ybottoa, Xoff »*t , Ytop, A_color , -Yeax,  Yaax) 

4444  Yof  fact -Ybottoa 

44*4  ELSE  -  -  I •••••••••••••••••••••••••••••• 

4*44  Xoffaet-Xral I  14  ♦  ONLY  XfcY  AXC4  BRANH  HIRE  • 

4*14  .  Yof f a* t-Ybot \ oa  I ***•*•••••••••••••••*••••••••• 

4*24  .  X_denoa-Xaax-Xal n 

4924  Y-d*nOB-VB4x-Yaln 

4944  CALL  Axla  drau<Xoffa*t , Yof f aet , Xr  1  ght , Yoffaet , A_col  or, Xal n, X**x> 

4994  CALL  Ax)  a~draw< Xoff aet ,  Yof  foot ,  Xoffaet  ,  Y»  op,  A  col  or,  Yu)  n,  Yaax> 

4*44  END  IF 


4*74  END  IF 

4*44  Xaeale-lXrlflht-Xoffaot  >/'X_d*noa 
4**4  Yacal*-<Ytop-Y*ffa*t denoa 
7444  END  IF 
7414  I 

7424  I*  DATA  VECTOR*  FLOTTED  DELON  • 

7434 

7444  PENUP 

7494  CALL  Scal*r<Xdata<4), Ydat a<4>, Xal n, Xaax, Yaln, Yaax ,X_p lot ,  Y_plot ) 

7444  PEN  Pone 

7474  N0VE  X _plot,Y_plot 

744*  FOR  1-4  TO  Nplot-1 

74*4  CALL  Seal  tr  (Xdat  at  I  )  ,  Ydat  at  I  ) ,  Xal  n,  Xaax ,  Yal n, Yaax, X _f lot , Y_plot > 
7144  ORAN  X_plot,Y_plot 
7114  NEXT  1 
7124  4UIEND 


7134  I 

7144  4UDR0UTINE  AXI*  DRAN  #*#«•#**#*#**•***#•*•*•*•• 
713*  I  •  *•**•*•••••*••**•*•••*•*•*****••  t***t*ll**t**tt*****  •#*#•••••#•••#•••#• 
7144  I*  THIS  4UDR0UTINE  BRANS  AN  AXIS  FROH  THE  STARTING  COORDINATE  TO  • 


7174  I*  THE  FINAL  ONE  .  IT  ALSO  0UANTIF1ES  THE  ORIGIN  AND  TERHlKL'i  OF  SAID  • 
71SS  It  AXIS  .  «  • 

71*4  !ttttttttttt#tttttttt#ttt###ttttttt##t#tttt*t####t#tttttttttttt#tt»*tt#t 
7244  8UB  Ax  1 1  dravtXat ort , Yatart ,Xf 1 nal , Yf 1 nal , Ax) ■  color, A  aln,A  Box) 

721*  Pie— 4#ATN< 1 > 

722*  Do  1 1  «-3 
723*  PENUP 
724*  PEN  Ax  I  *  color 
723*  PENUP 

7244  NOVE  Xatart ,  Yatart 

7274  DRAN  Xf  I  nal ,  Yf  I  nal 

72*4  PENUP 

729*  CSIZE  3. *,. 3 

73*4  CALL  Rounder <A_a In, 3 ,A*> 

731*  CALL  Rounder <A—o*x , 3, A| ) 

732*  IF  Xatart »Xf Inal  THEN 

733*  CALL  Lebellt<X*tort-D*lt»,Y»tBrt,Ple/2,Axl»_Color,VAL»<A4>) 

7344  CALL  Label  ittXf ln*l-D*tt*,Vfln*l-2*D*tta,PI*r2, Axi*  color, VAL*<A1>> 

733*  ELSE 

7344  CALL  Label  1 1 <X»t art , Y»t 4rt-Del to, 4, Axi a_eolor , VAL* <A4>> 

7374  CALL  Label  1 1  <Xf  Inal  >2*0*1  to,  Y*t  art-Bel t  a, 4,  Axi*  color ,VAL«<A1 > > 

73*4  END  IF 
73*4  tUBEND 

7444  I **##*#*#****#**#*###*#**##*♦***•##**###•*#•*•*•#•*#*#*##*••#»******•*•« 
7414  li##***##*#**#**t*###*t  SUBROUTINE  LADELIT  ••*###**•***###*####*#**#*#** 
7424  I *##*#*****#****#«##**##*****###**#*****#**#*#**»#***#****#•#•*•••••••♦« 

743*  I*  THIS  SUBROUTINE  SIMPLY  ACCEPTS  THE  GIVEN  LABEL  AND  PLACES  IT  NHERE 

7444  I*  IT  IS  SPECIFIED  (1*  X,Y  LOCATION)  AT  THE  GIVEN  TIL  f  ANCLE  .  THE  PEN 

743*  I*  COLOR  'Pane'  IS  ALSO  PROVIDED  BY  THE  USER  .  THIS  SAVES  A  LOT  OF 

7449  I*  REPETITIVE  CODE  . 

747*  I *♦#**#****#*##*##*###*##*##*##**#*#**#•*#*##*•###*#♦#•*#**•*•••••••*••« 

74*4  SUB  Label lt(X,Y,TI It, Penc,Strn«*> 

74*4  PENUP 
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7SM  no  VC  X,Y 
79 t«  PCH  Pent 
7920  LOIR  Tl  It 
7930  LA lit  Strngi 
7940  PfNUP 

7390  suiend  -  - 

7900  144444440444444444444444444444444444444444444444444444444444444444444404 
7970  I 44444400444444444444444444  OUIROUTIHC  OCALCt  444444444440444444 44444444 

7900  I  44444444444444444444444444444444444444444444444444444444444444444444444 
7990  I*  THIS  OUIROUTIHC  ICALCI  THC  DATA  PASICB  TO  IT  FOR  CRT  PLOTTING  • 

7000  I*  PURPOSES  .  • 

7010  I oooooooooaaaoaoooooooaoaoaaaaaoaaaaaaooaoeoooeeaoaoaaaoooooaoooooooaooo 
7020  OUI  8caler<X  datafY  4*1  •,  Xal  n,  X*t>,  Yatn,  Yaax,  X _pl  ot ,  Y_pl  ot  > 

7030  con  /Piet  block/  XacVl e, Yacal e, Xoff set ,Yof Feet 
7040  X_plot>Xscale4<X  dat a-Xot n)*Xof f aet 
7090  Y_plot4Yaeale4<Y"’data-Yoln>4Yof  feet 
7000  OUICNB 

7070  toaaoaooooooaooaaoooooaooaaoaoaeaoaaoooaoeooaaaoaooaooaaaaaoaaaaaaaaaaoa 
7000  iHtutHittttMt  xtutM  SUIROUTINC  R0UNDCR 

7090  IttttHHMtMMKtttlttttHtMtMHHtHttttttMHttHItitttHtttlHttt 
7700  I*  THIO  OUIROUTIHC  ACCCPTI  A  NUHXCR  OF  ANY  01ZC  OR  RICH  AND  4 

7710  14  ROUNDS  IT  TO  THC  8PCC1F1CD  HUMOR  OF  DIGITS  .  • 

7720  144444444444444444444444444444444444444444444444444444444444444444444444 


7730  OUI  Reund4r<X  input.N  dlgtta,X  rounded) 

7740  I 444444444444444444444444444444444444440444444444444444444 

7790  1444444444444  BCFINIT10H  OF  LOCAL  VARIAILKO  44444444444444 

7700  1444444444444444444444444444444444444404444444444444444444 


7770  I  X  Input 
7700  I  X~duaay 
7790  I  N'dlgtta 
7000  I  X~rounded 
7010  I  Sign 
7020  I  Hegnltude 
7030  I  Rant  lata 
7040  I  ARCunEHT 
7090  14444444444 


I  INPUT  HUMCR  TO  1C  ROUMDCD 
I  DUHAY  VARIAILC  UOCD  TO  PROTCCT  X  Input 
I  HUMCR  OF  DIGITS  DIOPLAYKD  AFTCR  ROUNDING 
I  ROUNDCD  COUIVALCHT  OF  X  Input 
l  NUHCRICAL  POLARITY  OF  ROUNDCD  NUNDCR 
I  ORDCR  OF  HAGHITUDC  OF  INPUT  NUNDCR 
I  HUNT  I  ISA  OF  HUMCR  UNDCR  ROUNDING 
I  ADDRCV1 ATCD  VCRSION  OF  NANTISOA. 


7000  IF  X_lnput<  >0  THEN 
7070  X  duaayaX  Input 
7000  lTgn»SGN<X  duaay) 

7090  X  duaayaAlftX  duaay) 

7900  Ragnltude-IHT~LGT<X  duaay)) 

7910  Rant  I ••aBX_duaay/< li-Ragnl tuda) 

7920  Arguaent  *  I NT < Rant  I  aeae 1 0- (N_dt  g<  ta-1  >  >/lO'*<N_dlgl  ta-1  > 

7930  X  rounded'S  I  gna Arguaent  4  lo^iiagn  I  tude  ” 

7940  CLlI 

7990  X  rounded'X  input 
7900  CND~ IF 
7970  SUICND 


7900  1444444444444444444444444444444444444444444444444444444444444444444444 
7990  1444444444444444444444444  OUIROUTIHC  MINDOHSR  444444444444444444444444 
0000  I  44444444  44444  444444444444  44444444444444444444444444444444444444444444 

0010  14  THIS  SUIROUTINC  PfRFORM  A  TRIANGULAR  HI  NOON  INC  OPCRATION  4 


0020  14  ON  THC  0UPPL1CD  VICTOR  .  THIS  10  A  PRCLUDC  TO  A  FOURICR  TRANSFORR  • 

0030  14  OPCRATION  AND  10  INTCNDPD  TO  RCDUCC  OPCCTRAL  SIDC  LOSING  .  • 

0040  1444444444444444444444444444444444444444444444444444444444444444444444 

0090  SUI  Utndeuer<Vactor<4),N  vector) 

0000  FOR  1-0  TO  N  vector-1 

0070  IF  l<N_vect or/2  THCN 

0000  Vector < I )aVeetor < I )4<2el/N  vector) 

0090  CLSC 

0100  Vector! 1 )»Vector< l )4< i-2e< i-h  vector/2)/N  vector) 

0110  CND  IF 

0120  NEXT  1 
0131  SUICND 
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22  $«p  l 987  23i 0*i 34 

1909  i 

iei«  (••••••••••••••••••••••••••  program  dir_fft  •****••*•**•••••••*•»•••*•*• 

1029  l 

1039  I*  THIS  PROGRAM  SOOTS  IN  AN  AHCLULAR  FORMATTED  SEA  SURFACE  FILS  • 


1040  I*  AND  PERFORMS  A  DIRECTIONAL  FAST  FOURIER  ON  THE  SIN(Pht(*)>  .  THIS  * 
1030  I*  OPERATION  HILL  TEND  TO  ERPHRSi:E  THE  SHORTER  WAVELENGTH  COMPONENTS.  • 
tSCS  I*  THE  RELATIVE  CONTRIIUTION  FRESUENCY  AND  DIRECTION  OF  EACH  COMPONENT  • 
1079  IS  THEN  IDENTIFIED  FROM  THE  ARRAY  'Sp*Ctrua(4,a>'  .  THE  RESULTING  • 
1099  !•  FREQUENCY,  DIRECTION  AND  RELATIVE  CONTRIBUTION  IS  THEN  STORED  OH  • 
1099  (4  DISK  FOR  LATER  USE  .  # 

I  190  I  . . . 

1119  COM  •'Four Hr'  Sp»c trua(312, 3*> , Fraquancy <3 12) , D1  ract  1  on <30 

1120  DIM  Phi  (4090) ,  Th»t  *<4990 ,  Z< 4990 ,  Duesy <312 ) 

1130  DIM  1 n  t  agr  and ( 499* ) ,  M  tgn  I  t  (Jdt  ( 4*9*  > , Phase ( 4  09* ) 

1140  DIM  Seartng(3l2),Rel  cont(312> 

1130  DIM  Naaeil  1*1 ,  Nui  lnltl«],N4M  0«t*t  1C J ,Medl us* (20) ,  JobSCOO J 


11*0  I . . . . . . 

1170  I aaaaaaaaeeaae*  DEFINITION  OF  LOCAL  VARIABLES 

1  190  I 

1190  1  Phi (•>  I  CLEVATtONAL  ANCLE  OF  UNIT  NORMAL.  (Radians) 

1290  I  Tnet  *(• >  I  AZIMUTHAL  ANCLE  OF  UNIT  NORMAL.  (Radians) 

1219  1  Dueay<*>  I  DUMMY  VARIABLE  USED  TO  ACCEPT  2(a). 


1229  1  8p*e  t  ru»<  • ,  •  >  <  UNIT  NORMAL  DIRECTIONAL  MAGNITUDE  SPECTRUM. 

1230  ■  Frtqutncyl  a >  I  FREOUENCY  ORDINATE  AXIS  OF  8PECTRUH .  <H« -**> 

1249  I  Dirac 1 1  on(<)  I  UNIT  TEST  VECTOR  ANCULAR  BEARING.  (Degrees) 

1230  >  I nt *grand( * )  I  NORMAL  PROJECTION  OF  TEST  VECTOR. 

12*0  I  Magnl tudt<<>  I  SPECTRAL  MAGNITUDE  OF  PROJECTION  TRANSFORM. 

1270  I  Phase < • )  I  PHASE  SPECTRUM  OF  PROJECTION  TRANSFORM. 

1200  *  Baarlngta)  1  ANGULAR  DIRECTION  OF  HAVE  FRONT.  (Radians) 

1290  1  As  I  cent  (•)  I  SPECTRUM  RELATIVE  CONTRIBUTION  OF  COMPONENT 

1300  I  N  data  I  NUMBER  OF  DATA  POINTS  IN  TEMPORAL  STREAM. 

1310  I  Appoint  I  N  data  ROUNDED  UP  TO  NEXT  POWER  OF  TMO. 

1320  1  N  direction  1  HUMBER  OF  TEST  DIRECTION  VECTOR  STEPS. 

133B  I  N~short  1  TRUNCATES  SPECTRUM  COMPONENT  LENGTH. 

1340  I  o'gaaaa  I  ANGULAR  STEP  SIZE  OF  TEST  DIRECTION  VECTOR. 

1330  F  saapl a**9  I  HAVE  COMPUTER  SAMPLING  FREQUENCY.  (Herts) 

13*9  T~»4apt4alsF  saapl*  I  TEMPORAL  SAMPLING  INTERVAL.  (Seconds) 

1 370  P7e-4*ATN(I>~ 

1390  M*dfua9*'BMSIC'0ATA  FILE/*!  DEF I NT  I  OH  OF  HASS  STORAGE  MEDIUM. 

1390  I  Naa*  In*  I  ANGULAR  FORMATTED  SOURCE  DATA  FILE. 

1400  I  Naa*~out •  I  FILENAME  OF  DIRECTIONAL  INFORMATION  FILE. 

1410  I  •  ***ee#***#4*****#*********#»**4**e*#**#e#*e#****#e»#**et**a 
1420  PRINT  CHR0C 12) 

1430  INPUT  ‘(mar  FILENAME  of  SOURCE  Bata  Ftla  .  COatt  Satan*  I  on). . .  •  .NaaaS 
1440  INPUT  “Enter  DIRECTIONAL  ANGULAR  STEP  SIZE  (Bagrats)  ...*,B  gaaaa 
1430  INPUT  *Cntar  TRUNCATED  DATA  STREAM  LENGTH  ....’,H  short 
14*0  Uindow_«>*H* 

1470  N  direct lon«INT< 100/B  gaaaa) 

1400  Naae_1n«aN4a*0L*_HHG* 

1490  Maaa2out*«Naaa**T_DIR* 

1300  CALL~Readf I 1e3(Maa*  Ini, Jebi,H*d1uai,H  data, Phi (a), That *(•), Z(*) ) 

131*  N  eo1nt-2*INT<L0CCN'data>'L0G(2>*l> 

132*  CALL  Zero  f  1 1 1  (Phi <a),N  data,N_pelnt>  • 

133*  CALL  Zero  f  1 1 1  ( That s(*> ,N  dtte,M_polnt  > 

134*  FOR  I-*  TO  N  dlrectten-1 
133*  BEEP 

13*0  DISP  ••♦•»•»«••  OPERATION  •  |  INT(  1*M!  'H  dlractlon>|*  PERCENT  SONS  ••** 


137*  Direct  loot !>•!»*  gaaaa 

13**  CaaaaaDIract  lon(T)aP1arl*0 

1390  CALL  IntegrandtPhl  (*),  Th*ta<4>,Pla,N_po1nt , Gaaaa,  Integrand!*)  > 
!<••  IF  Hlndov  *a*Y*  THEN 

1*10  CALL  w7ndot*er(Int*grand<*),M_polnt> 

1*20  END  IF 
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tOt  CALL  Ff  t  (  I nt egr ond(«  > ,  N_pot  nt ,  i*  I e, Hognt  t ude( • ) ,  Pho*e(  •>  ) 

1(40  CALL  Stuff  errey(Mognttude(*>,N  short, I> 

1(50  NEXT  1 

test  CALL  Freq_bose<N  point, H_short , F_soopl e ,  Frequency (•> > 

1*7#  CAIL  Ft  nd^peok  t  <  Fr  equenc  y  <  ♦  ) ,  D  t  roe  1 1  on(  o  > ,  It  or  t  ng(  •  ) ,  A#  1  _c  ont  ( e  > ,  N_shor  t , 
N  direction)  *  "  ” 

"l«S0  INPUT  *ST9RC  Dlrectfonol  Spectruo  on  DISK  7  (YrN)  ....’.AS 
l(t«  IF  Ad«*Y*  THEN' 

1 700  CALL'  Mr 1 1 of 1 1 •3<Noa«_out S , Job* , Rod t un* ,  N_»hor t , Fr oquonc y ( • > , So or t nfl< • ) 

,  At  I  c  ont •  >  )  ~  ~ 

t7lt  CHS  IF 

1720  INPUT  *0uap  Directional  Spoctruo  to  tho  PRINTER  7  (YrN) A* 

1 730  IF  At-’V  THEN 


1740  CALL  Prtnt  out (Frequency!*) , Boor  I ng( • > , Re  I  cont(«),M  short) 

1750  END  IF  * 

17 «0  END 

1770  IttlttMMtMMtMttMMtMtMtttMttMtttMMtMHMtttltmMtMMtttt 
17S0  l  ••••••••••••••••••*•••••••*  SUBROUTINE  FFT  »•••»**«•♦»•♦»••*»«••§•»•*•• 

17*0  I *040000*0*0*0**0**0*0004«*0000000000*0000*000000000t040*4#00*0»000*»00» 

1000  I •  THIS  SUBROUTINE  PERF0RR8  A  FAST  FOURIER  TRAN8F0RA  ON  THE  • 


1810  '•  DEPOSITED  DATA  VECTOR  '  X  Input (•>  THE  REAL  PART  OF  THE  8PECTRAL  * 
1020  I*  VECTOR  IS  RETURNED  IN  TH?  VARIABLE  '  F  rool(*>  '  AND  THE  I RAC I NARY  • 

1030  I »  PART  10  RETURNED  IN  VARIABLE  '  F  looge(*>  '  .  IT  IS  IMPORTANT  TO  • 

1040  I*  NOTE  THAT  ,  IN  ORDER  FOR  THIS  FFT'ALCORITNR  TO  UORK  THE  NUMBER  OF  • 

1050  I*  DATA  POINTS  UNDER  ANALYSIS  RUST  BE  A  POMER  OF  TMO  II  • 

10(0  . . . 

1070  SUB  Ff  t  <X  f  nput  <  *  >  ,  N_pc  I  nt , PI e,Rognt  t ude ( * )  ,  Phose (• )  > 

1000  DIR  Rool  I<4S9S),  Iaog*  1(4090,  Root  2(4090 ,  leoge  2<409(> 

1090  DIR  P  I ndex(2040) , 0  lndex(2040> 

1900  REDIH~Reo1  1  (H_pol nT-1  > ,  Iaoge  KN_po1nt-l> 

1910  REDIN  Ro%l~2(N_jio1nt-l >,  Iaoge  2(H_pot nt-1  > 

1920  RAD 

1930  Pie>4*ATN(l) 

1940  V  point *INT(L0G(H_polnt)/'L0C(2>> 

1950  I  . . . . . 

19(0  I44«*4  ORDER  DATA  VECTOR  FOR  INPUT  OF  TRANSFORR  •**••• 

1970  I ••40444004004S00000440004000000S400040004000004000S44 

I9S0  CALL  lit  rovorso(X  I nput (•> , N  polnl , V  oo I nt , Rool  1(*>) 

1990  ItttMttmttMMHttHHHtMM 
2000  !•  NULL  IMAGINARY  INPUT  VECTOR  o 

2010  I •«444440000404400#0444404404s00 

2020  FOR  I>0  TO  H_potntr2*l 
2030  Iaogt  1 < I >«0 
2040  NEXT  I 

2050  FOR  l_stogo>0  TO  V _po!nt-l  t  START  STAGE  STROBING  LOOP 

20(0  CALL  Buttorf !y(N  point, V  point, 1  stogo.P  tnde>:(»>,0  Index!*)) 

2070  FOR  J  butterfly!  TO  M_polnt/2-l"  I  8T9RT  BUTTERFLY  STROBING  LOOP  . 

2000  I 

20*0  !•  DETERMINE  BUTTERFLY  BRANCH  POINTS  • 

2100  . . . 

2110  P«P_lndex( J_butterf ly> 

2120  Q«0_lndex( J~butterf ly> 

2 1 30  R_pouor  •FNModu  1 o( 7_but  t  or f 1 y*2" ( V _po  l  nt  - 1  -  l_st  ogo  > ,  N_po nt /2  > 

2140  CALL  Phosor(Plo,N point, R _pOuOr , M^reol , M_l oogo ) 

2150  CALL  Produet_coopTex(M_reel , M_t oogo , Real ~1 (0) , Inogo_l (0) , Buaay_reot , 

Duooy  loogo) 

21(9  leoooeeeoeeoeoeoooeoooeeeoeeeeeosoee 

2170  lo  COMPUTE  UPPER  HALF  OF  BUTTERFLY  e 

2100  I eeeoeeoeeeoooeoeeeeeeeeoeeeeoeeeoo* 

21*0  Reel_2(P>«R*el_l(P>*Duooy_r*el 

2200  loogo  2(P)*taog*  l(P)*Duooy  loogo 

2210  ItMtMtMttIMMIMMMMtitttMtM 

2220  I*  COMPUTE  LOWER  HALF  OF  BUTTERFLY  • 

2230 

2240  Rool_2(0>aRool_l <P)-Duooy_ro»l 

2250  laogf_2(Q>*Iaeg*_l <P)-Duooy_l oogo 
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22  (8 
2278 
2288 
2288 
2388 
2318 
2328 
2338 
2348 
2398 
2388 
2378 
2388 
2388 
2488 
2418 
2428 
2438 
2448 
2438 
24(8 
2478 
2488 
2488 
2388 
2318 
2328 
2338 
2348 
2338 
23(8 
2378 
2388 
.388 
2  >96 
2H0 
2C..8 
2(3:1 
2(4  3 
2(38 
2(88 
2(78 
2(88 
2(98 
2788 
2718 
2728 
2738 
2748 
2758 
27(8 
2778 
2788 
2798 
2888 
2818 
2828 
2838 
2848 
2838 
28(8 
2878 
2888 
2898 
2988 
2918 


NeXT  J_8utt4rfly 

'4  UPDATE  NEXT  CYCLE  80URCE  VECTOR  • 

IffttMMtttttlfltt 

BAT  At al_l«R*4l_2  / 

BBT  ta*g«  l*Ia4g*  2 
NEXT  I  stag* 

'»  DETERMINE  MAGNITUDE  bad  PMR8E  OF  SPECTRUM  • 

CALL  Bag  phaaotRtal  2<v),Iaag4  2<»>,N  pot  nt ,  Magnll  ud*  <  • ) ,  Pha»4<  ♦ ) ) 
SUBEND  “  / 


SUBROUTINE  BBC  PHASE 


'•  THIS  SUBROUTINE  COBPUTES  THE  BBCNITUDE  AND  PHASE  OF  THE  COMPLEX  4 

•4  VECTORS  PROVIDED  IN  THE  VARIABLES  '  X  raa1(4)  -  BHD  '  X  taagtta)  ' ,  4 
•4  THE  RESULTING  BBCNITUDE  IS  THEN  STORED  IN  THE  VECTOR  7  R  aag<«>  '  4 
<4  AND  THE  PHASE  IS  STORED  IN  THE  VECTOR  '  P_pha»a<4>  '  .  4 

SUB  Bag_ph444<X  <*«»!<•>, X  tat;<<4),N  point, R  aog(4>,p  ph444(4)> 
Pl4*44BTN(l)  ”/ 

FOR  1«0  TO  N_polAt-l 

R  »«g< I >»80R<¥  r*ol<I>4X  r««1<I>«X  ioog«<I)4X  laaga<t»> 

IF  X_rtal<IX/S8  1  HEN 

Pha»4»ATM<ABS<X  taagttll'X  r«al<I>>> 

ELSE 

Phai«*P  ij'i 

END  IF 

X_4 I gn48CN^X_r«pl  <  1 ) > 

V".  I  gn'SCNX  X"l  aagt  <  1 )  > 

IF  Y  algn jF«8— THIN 

I?  X_»4gn>«8  THEN 
P~R>14»»<  I  )*P».4»4 
ELSE  / 

-PM444 


tuts  I 

t  Jp htlt(  I  )aPt  p* 

END  TP 

else  / 

IF  x_4 lgn)«8  THEN 
P  pha4«<  I  >--Ph4»4 
ELSE 

P  ph444<  I  )4Ph44»-Pl4 

END  If 
END  IP 

next  I 

SUBEND 


SUB  Bi t_r«v4r§»  < V«< t  or_l n<  4»,N_wat  t or,N_pow*r , Voc tor_out  <4  >» 
DIB  Ind4«_t n< 1(> ,  Ind4«_out < l(> 


SUBROUTINE  BIT  REVERSE 


•  THIS  SUBROUTINE  PERFORMS  A  BIT-REVERSAL  OPERATION  ON  THE  4 
4  DEPOSITED  INPUT  VECTORS  INDICES  .  THIS  IS  IN  PREPARATION  FOR  AH  4 
4  IN-PLACE  FAST  FOURIER  TRANSFORM  OPERATION  .  # 


DEFINITION  OF  LOCAL  VARIABLES 


Vtctor_ln<4) 

N_pcv«” 

N_w«c  «  or 
Ir.dPK_l  n<  4  ) 

I nd4«”out <  4  > 
Vtttor  out  1 4 ) 


INPUT  VECTOR  TO  BE  BIT  REVERSE  SORTED. 
log  babe  tno  of  input  vector  lencth  , 
actual  length  of  input  vector  . 

BINARY  INPUT  VECTOR  REFERENCE  INDEX  , 
DINARr  BIT  REVERSED  OUTPUT  VECTOR  INDEX 
BIT  REVERSE  SORTED  OUTPUT  VECTOR  . 


FOR  1-8  TO  N  powtr 


1  NULL  BIT  INDEX  WORDS 
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]t!l  I ndex_t  ru  I >*• 

21)1  Index  out ( 11-0 
2*'.  NEXT  I 

2999  FOR  I ••  10  N  uictor-1 
2900  IF  I  OB  THEM 

2970  CRLL  Inc  btparydndex  tn<*),M  power) 

29BB  CNB  IF  ” 

2999  CRLL  Ref  I e: 1 1 Ind*x_t n<* ) , H_power , Ind*x_out (• > ) 

3BBB  CRLL  Da*#_t#n< Ind#x_ln< *> , N _pow*r,I  Input) 

3B1B  CRLL  Ba*e~t*n< Index- out <e),H _pow#rf?  output) 

3B2B  I *******##***#*#**##*****#*#*********#****** 

3B3B  lee  BIT  REVERSES  INDICES  OFERRTION  IE  LOW  .« 

3046  leeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
3098  Vector  out<I  output )eVector  ln<I  Input) 

3000  NEXT  I 
3070  SUBENO 

3000  leeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
3090  1 eeeeeeeeeeeeeeeeeeeeeee  SUBROUTINE  INC  BINRRY  eeeeeeeeeeeeeeeeeeeeeeeee 
3100  •eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
3110  1 e  THIS  SUBROUTINE  PERFORHS  R  BINRRY  INCREMENT  OFERRTION  ON  THE  e 

3120  le  BEPOS I  TED  BINRRY  VECTOR  7  Hord  inc(e)  '  RHD  RETURNS  THE  RESULT  IN  e 
3130  It  THE  SRNE  VRRIRSLE  .  ~  * 

3140  I •♦****#****#****#**#******4##****###**#***######*###*####*###*##*#**#** 
3190  SUB  lnc_bl n«ry(Mord_1 nc (♦ ) , N_power) 

3100  Carry_fTag-0 
3170  Bone  flag-S 
3100  I<0  ~ 

3190  WHILE  Done  flegee 

3200  IF  1-0  THEN 

3210  IF  Ward  tnc<I>-0  THEN 

3220  Herd~lnc<  Del 

3230  Don*~fl*g-l 

3240  ELSE 

3290  Word  IncCIXS 

3200  Carry  flag-1  , 

3270  ENB  IF 

3200  ELSE 

3290  IF  Carry  flag-1  THEN 

3300  IF  Word  lnc<I>-0  THEN 

3310  Mord~l nc  < I > ■ l 

3320  Pont~f!ag-l 

3330  ELSE  * 

3340  Nord_lnc<I>-0 

3390  Carry  flag-1 

3300  CNB  IF 

3370  END  IF 

3300  END  IF 

3390  1-1*1 

3400  IF  I-N _power  THEN 
3410  Done  riag-l 

3420  END  IF 
3430  END  WHILE 
3440  SUBEND 

3490  I eeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeee*# 
3400  I •*#•••*•••••**•••##•#•#•#  SUBROUTINE  REFLECT  e*ee#eee#eee#e####e####e*#e 
3470  I eeee eeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeee# 
34S0  I*  THIS  SUBROUTINE  TRRNSPOSES  THE  POSITION  OF  THE  BITS  IN  THE  INPUT  * 
3490  I*  VECTOR  TO  OPPOSITE  POSITIONS  WITH  RESPECT  TO  THE  CENTROID  OF  THE  * 
3900  •*  BINRRY  WORD  .  • 

3910  '****#*#*#####***######*####*###*#######*#####*##**###*####*###*##*#####* 
3920  SUI  R*ft*ct(Mord  I n< e > , H_pow#r , Word  eut<*>) 

3930  FOR  1*0  TO  N_pow#r-l 

3940  Nerd  eut<I>*Hord  tn<M  pow#r-I»l> 

3990  NEXT  T 
3900  SUIEND 
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33S0  ( ft***********************  SUBROUTINE  MU  TEN  ft********************  •••• 

3390  I . . . . . «... . . 

3000  I*  THIS  SUBROUTINE  CONVERTS  THE  DEPOSITED  BINARY  VECTOR  TO  A  MSE  • 


3010  '*  TEN  INTECER.TNC  BASE  TEN  NUMBER  IS  RETURNED  IN  TNE  VARIABLE  'X  Out'.* 
3020  (••••••••••••••••••••••••••••••••••••••••••••••(••••••e**********?****** 

3030  SUB  B***_t#n<Uor<On<*>,N _pow*r,  X_ out  > 

3040  X  out  *0  ”  ~ 

3030  f5r  1*0  TO  N _pow«r-l 
3000  X  out.X  out  * Word  tn(I>*2<'I 
3070  NEST  I  ~ 

3000  SUBENB 


3090  • ••••••••■••••••••••••••••••••••»***********o******o**.****e*******e**o* 

3700  •••••<•*•»•**••••*•»•••*  SUBROUTINE  BUTTERFLY  «•»••••••••*•••••••••••••« 

3710  i ••••••»o»*********»**«o*o****o**o**o*o*o*e*********** to**************** 

3720  i*  THIS  SUBROUTINE  GENERATES  THE  NECESSARY  INDICES  DEFINING  THE  • 


3730  ••  BUTTERFLIES  NHICH  PERFORM  THE  IN-PLACE  COMPUTATIONS  OF  A  FAST  * 
3740  i*  FOURIER  TRANSFORM  .  • 

3730  i **••*•*••••«••••*••••••••••••••••••••••••••••••»•«•••••••••••••*••••••• 

3700  SUB  ButtorftyCN  point, v  pot nt , St  so* , P< * ) , 0<* > > 

3770  I •*••*•«•••••••*. ••*••••• . . . 

3700  I**************  DEFINITION  OF  LOCAL  VARIABLES  ••••»••••••••••* 

3790  I •********4*4**4**** ************* ******** ft »»*••*•••*••*•••*••» 

3000  I  N _point  I  NUMBER  OF  POINTS  IN  FOURIER  TRANSFORM  . 

3010  I  V_polnt  I  LOG  BASE  TMO  OF  NUMBER  OF  TRANSFORM  POINTS. 

3020  <  Sttft  I  STAGE  OF  TRANSFORM  VECTOR  PROCESSING  . 

3030  I  Bpan  t  WIDTH  OF  RON  SPAN  OF  BUTTERFLY  . 

3040  ■  N  butterfly  I  NUMBER  OF  BUTTERFLIES  IN  TRANSFORM  STAGE. 

3030  t  N~cro»»  t  NUMBER  OF  BUTTERFLIES  FOUND  . 

3000  !  Up  trot*  *  POSITION  OF  UPPER  BUTTERFLY  BRANCH. 

3070  I  Low  ero»»  t  POSITION  OF  LONER  BUTTERFLY  BRANCH  . 

3000  l  P<*>  t  'P'  INDEX  OF  BUTTERFLY  'N  cross'  . 

3090  I  0<*>  I  '0'  INDEX  OF  BUTTERFLY  'N~crost'  . 

3900  . . . •••••••••••••••••••••••• 

3910  l*tn«l>|tt(t 

3920  I*******.******************** 

3930  ••  DEFINE  INITIAL  BUTTERFLY  * 

3940  I ••••••••••••••*«••••••••••*• 

3930  Up_crost*0 
3900  Low_<rett*Sp*n 
3970  N  ere***-! 

3900  if  Sp*n> 1  THEN  I  TEST  OUT  CASE  OF  STACE  ZERO 

3990  WHILE  n  <ross<N_potnt/3-8pon 
4000  FOR  T*Up^cross  TO  Low_cross-l 

4010  N^cross'N^crwse*!  “ 

4020  pTN_cros*^*I 

4030  0<N  cross >• 1 *Sp*n 

4040  NEXT  1~ 

4030  Up^crossaOIN^crossT*! 

4000  Low  cro***Up  crossrSpsn 

4070  END  WhTlE 
4000  ELSE 

4090  FOR  1*9  TO  N  point 1 

4109  P<I)*2»I 

4110  Q<! >«2*I«1 
4120  NEXT  I 

4130  END  IF 
4140  SUBEND 

••«••••«••••«»••*♦•#•»•••«  function  modulo 


4.,  •  •  THIS  FUNCTION  *CTU*N$  TMf  MODULO  vm.UK  OF  MN  iNTfCCft  • 

41  tO  '•  MCURINT  NOT  TNC  MODULO  LIMIT  fFCCIFICD  NO  '  Hod  •*»'  .  • 

4200  ■ 

4210  DCF  FNModu I o<Nu»b«r , Mod_«4x ) 

4220  Dufety* ! NT <Nu*b«r/M«d_M*x > 

4230  N_ftod*NuftU«r-DuAay*nod_«ax 
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24#  RETURN  M  aod 
29#  FNEND 

26#  . •*•«*•»•*•. ••«**. **r* *••*»•*•••••••*•*. •••*• *4************ 

27#  t »•»•••*•♦•«••••••»•*•  SUBROUTINE  PRODUCT  COhPlEX  ••••••••••♦•»••••••••• 

286  I*********************************************************************** 

29#  I*  TNI#  SUBROUTINE  PERFORHS  R  COHPLEX  AULT IPL ICRT ION  OPERATION  OH  THE  • 
30#  '♦  DEPOSITED  '  X  rati  *  X  I  sag*  '  AND  '  Y  raal  *  Y  i*»g»  '  INPUT  • 
310  I*  VARIABLES  AND  RETURNS  THE  RESULT*  IN  ?HE  VARIABLES  • 
320  !•  '  Z  raal  ♦  Z_laaga  '  • 

330  I **•*••**••**•*******•**••••*•*•***•*********•»♦*****•*•••••••*•«•**•••• 

340  SUB  Product  coaplaxCX  raal.x  taaga.Y  raal.Y  laaga,2  raal ,2  laagal 
390  I **•* •♦**«*»******«•****»************** **a****** •****«*•**«*» 

360  . . ♦•*•*♦••«  DEFINITION  OF  LOCAL  VARIABLES  ♦♦##»•••*♦«»«*♦ 

37#  I a*********************************************************** 

300  •  X  raal  I  REAL  PART  OT  FIRST  INPUT  VARIABLE  . 

390  I  X~laaga  I  1 AACINARY  PART  OF  FIRST  INPUT  VARIABLE. 

400  I  Y~raal  I  REAL  PART  OF  SECOND  INPUT  VARIABLE  . 

410  I  Y~< aaga  i  INACINARY  PART  OF  SECOND  INPUT  VARIABLE 

420  I  2*raal  •  REAL  PART  OF  THE  PRODUCT  OF  INPUT  VARIABLES  . 

430  ■  2^1  aaga  I  IAACINARY  Pf.RT  OF  PRODUCT  SUN  OF  INPUT  VARIABLES 

440  i ♦••••♦**»• •**»•*•*•* ***••**•*»*  •*•£>•*** •• a****************** 

49#  Z_r*at*x_raal  *v_raal -<X_i aaga *Y_< aaga > 

460  2-laag**K  r» at*V  teag**X  laagaav  raal 
47#  SUBEND 


400  I*********************************************************************** 
>490  !  »••*»*••«»«••*•*••***•*•••  SUBROUTINE  PHASOR  aaaaaaaaaaaaaaaaaaaaaaaaaa 

>900  . . ************************************************************ 

310  !  •  THIS  SUBROUTINE  CONFUTES  THE  REAL  AND  INACINARY  PARTS  OF  AN  a 


*320  !«  EXPONENTIAL  UNIT  TRANSFORN  PHASOR  RAISED  TO  THE  POWER  '  R_powar  a 

<130  1  «••*•♦••*«• . . 

*340  SuB  Pha»or(Pia,N, R, raal ,W_laaga> 

*390  H  r*al*C0S<2*Pla«A'N> 

•36#  N”iB4ga“flN<2*Pi aaR'A) 

*370  SUSEND 

(38#  . . . . 

•390  l************************  SUBROUTINE  ZERO  FILL  aaaaaaaaaaaaaataaaaaaaaaa 
*600  • »••««•***••**♦*****•••*♦•••*•**«**••*******•***•***•♦*******•****•***** 

•  610  <  a  THIS  SUBROUTINE  EXTENDS  THE  LENGTH  OF  THE  RECORD  TO  THE  NEXT  a 

*620  •»  HIGHEST  POWER  OF  TWO  BY  FILLING  THE  REHAINDER  WITH  ZEROES  .  • 

•630  I aaaaaaaa* 44 44*444444444 4444 4 »444 4 4 44444444*4444444444444444444444444444 
•640  SUB  Zero  flit  <Duaay<  a> ,N  «n,N  out > 

•690  V  I n« INTTlOGCN  ln>rL0C<2'>  "  •  CONFUTE  POWER  OF  TWO  OF  DATA  RECORD. 
•66#  n"out*2-<v  In.T)  >  INCREASE  RECORD  LENCTH  TO  NEXT  HIGH' 

•670  R?DIH  DuaayIN  out-1 )  •  EST  POWER  OF  TWO  . 

•600  FOR  I4N  In  TO  N  out-1 

•69#  DuaayTl )■«  "  •  ZERO  FILL  RENAINDER  OF  DATA  RECORD  . 

•700  NEXT  I 
•710  SUBEND 

*720  I4****#*4**#***4*4**4*4*#4***#*4**44444**4***#*4*4444444*4#*4#4*44*4*44* 

•730  I 44*4444444444*444444444*  SUBROUTINE  I NTCCRAND  4*4***444*4*4**4*44*4*444 

•  740  < *************  14*44 4 44  *  ******* «* ••«••»••»*••••»*»» •••••»*••••••*•**•*•*« 

•790  >•  THIS  SUBROUTINE  CONFUTES  THE  DIRECTIONALLY  SIFTED  TENPORAL  * 

•  76#  i*  RECORD  OF  THE  SEA  SURFACE  UNIT  NORHAL  ANGLES  'PM'  AND  'That a'  .  • 

•77#  ••  THAT  IS  ,  THE  FOURIER  TRANSFORN  IS  LATER  TAKEN  OF  THE  SINE  OF  * 

•700  >•  'Phi'  NODULATED  BY  A  DIRECTIONAL  CAU0SIAH  SIFTER  WITH  'Thata'  AND  * 

•790  I*  'Caaaa'  AS  ARCUNEHTS  .  REFER  TO  SECTION  ENTITLED  'Dataralnat Ion  • 

••00  '»  Of  Wav*  Direction  '  IN  NAIN  REPORT  FOR  RELATED  THEORY.  » 

•  010  !  »••««•••*•••••••*••  •••••••••»«•*•»••••*•••••••••••«•••••••••••••*•••••• 

•  #20  SUB  lnt *grand<Phl < • ) , Th* t •< • > , PI  * , N_pp I nt , Caaaa, Vac  tor <* > ) 


#30  RAD 

040  >  *•****••**• ********** a************** ************* 
•  90  •  ••••••••<•***«  DEFINTION  OF  LOCAL  VARIABLES  ***** 

•6#  ■»•*••»••**••«•••••••*♦•••••»•«*•*••*•••••••»•••♦• 

070  •  Ph I < * )  <  ELEVATIONAL  ANCLE  OF  UNIT  NORHAL  . 

•06  >  Thata<*>  I  AZInuTHAL  Ancle  of  UNIT  KORHAL  . 

•9#  i  Bata  >  LINE  OF  ACTION  ADJUSTED  ThaiaCI;  . 
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4999 

491* 
492* 
4939 
4949 
4999 
4949 
4979 
4999 
4999 
9999 
9919 
9929 
9939 
9949 
9999 
3949 
3979 
9999 
3999 
9199 
9119 
9129 
9139 
9149 
9199 
9149 
3179 
3199 
3199 
3299 
3219 
3229 
3239 
3249 
3239 
3249 
3279 
3289 
3299 
9399 
©I uan> 
9319 
9329 
9339 
3349 
3339 
9349 
3379 
3399 
3399 
9499 
3419 
3429 
3439 
3449 
3439 
3449 
3479 
3489 
3499 
3399 
9318 
3329 
3338 
3348 


1  N_polnt 

'  Cqaaa 

'  3 l g*t 

1  v#etor<*> 

!••••«••••« 


1  LCNCTH  OF  TEMPORAL  DAT*  RECORD  TO  U  SIFTED. 
•  CURRENT  SIFTING  DIRECTION  AZIMUTH  ANGLE  . 

'  STANDARD  DEVIATION  OF  8IFTINC  OAERATOR  . 

I  RESULTING  DIRECTIONAL  FOURIER  INTEGRAND  . 


FOR  1*9  TO  N _po!ht-l 

Vtciorl I>*SIN(Fht < 1 ) >#COS<TNpt a< I J-Caaaa) 
NEXT  I 
SUSCND 


SUDROUTINE  FREQ  DASE 


•*  THIS  SUDROUTINE  CONFUTES  THE  FREOUENCY  DASE  VECTOR  FOR  THE  * 

'*  RESULTANT  OF  The  DIRECTIONAL  FOURIER  TRANSFORN  .  * 


SUl  Irti  (ui <N_po  t nt  §  N_f  rtqutnc y ,  F_»aapl  • ,  Fr-aquanc  y  (  •  )  ) 
F  dalta*?  aaapla'N^potn?  ~ 

F5R  1*9  t5  N_Fraquancy-l 

Fraquancyt I >• I 4p  da 1 i a 
NEXT  I 
SUDEND 


lataataatataaaaaqaaaaa**  SUDROUTINE  STUFF_ARRAY  aaoaaaa***************** 

1*  THIS  SUDROUTINE  INSERTS  THE  DEPOSITED  COLUNN  VECTOR  INTO  THE  * 

•4  ARRAY  SHOWN  IN  THE  COAAON  SLOCK  'FOURIER'  .  * 

<  44444****** C***4 ************ *44* ••»•••••••••••••••• •••••••••••  «4III4II| 


SUS  St uf f_*rray (Duaay < • > ,  N_duaay , K_co 1 uan ) 

CON  sFourtfr/  Sp*c trua<31 27*4 > , Frtqu*ncy<312) , Dt r#c t lon(34> 
FOR  1*9  TO  N_duaay-1 

8p*clrua<I,K  coluan>*Duaay<  I ) 

NEXT  I 
SUIEHD 


SUDROUTINE  FIND  PEAKS  ************4V 


<•  THIS  SUDROUTINE  DETERAINES  THE  LOCATION  OF  THE  DIRECTIONAL  • 

14  PEAKS  IN  THE  SPECTRUM  FOR  EACH  FREOUENCY  COMPONENT  AND  ALSO  * 
14  DETERMINES  THE  RELATIVE  CONTRIDUTION  OF  EACH  FREOUENCY  COMPONENT  .  • 

I •••••••••••••••••••••••••••••••••••••••a******************************* 

SUl  F  I  nd_paak  4  ( .rr  aquanc  y  <  4),  Direct  1  onC  #  > ,  Da  an  I  ng<  4  >,  Ral_cOnt  (•  )  ,N_ro«,  N_c 


DIN  Duaay <  234 > 

Pta*4*ATN< 1 ) 

Sua  *pac*9 
F0R~I*8  TO  H_rou-l 

CALL  Put l_vae  t  or  <  Duaay  (  • ) , N_eol uan, I > 

CALL  Pa*k_dat*c  t  < Duaay  <  *>  ,  N_cot  uan,  Max  t  aua,  l_a*xt  aua  > 
Soaring! I~«D tract  Ion < t_aax 1 aua > *P I */ 189 
8u*_»pac*8ua_»pa< •Fax  I  aua 
R«l  cent <1 >*Haxtaua 
NEXT  l" 


!#  SCALE  RELATIVE  CONTRIDUTION  VECTOR  * 
I ataaaaaaaaaaaaaaaaaaa***************** 
FOR  1*9  TO  N  rou-1 

R«t  cont(T>*R*l  conMll/Sua  Ipac 
NEXT  l" 

SUIEND 


SUDROUTINE  PULL  VECTOR 


t*  THIS  SU1R0UTIHE  PULLS  A  ROW  VECTOR  FROM  THE  MATRIX  IN  THE  * 
'4  COMMON  STATEMENT  DELON.  THIS  ROW  VECTOR  IS  RETURNED  IN  THE  VAR  I  NILE  * 
'4  '  Duaay. *  >  '  ,  * 
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ssss 

3960 

3370 

SSU 

ss«e 

ssoe 

St  1# 
9(21 
3639 
3(41 

3630 

stte 

3679 

3999 

3690 

3799 

3710 

3729 
3739 
3749 

3730 

3769 

3770 
3700 
3790 
3000 
3010 
3020 
3030 
9040 
3030 
3060 
3070 
3000 
3090 
3900 
3910 
3920 
3930 
3940 
3930 
3960 
3970 
3900 
3990 
6000 
6010 
6020 
6030 
6040 
6090 
6060 
6070 
6000 
6090 
6100 
6110 
6120 
6130 
6140 
6190 
6160 
6170 
6100 
6190 
6200 


$UI  Pul l_v«ctor<DuBay(»>lN_duaay>K_rOM> 

COn  /Fouriar'  Sp4C trua( 312, 36 > , Fr4autncy<312> , SI rac t 1 #n< 36 > 

700  J«9  TO  N_duaay-1 

Duaay< J)aSpactrua<K  rou, J) 

NEXT  J 
SUBEND 

)•«••••••••••••«•••••••  SUBROUT INI  PERK  DETECT  ••••••••••••••••••••••••• 

it  this  subroutine  rinds  the  RRxtnun  element  in  the  vector  • 

•»  '  DuaayCO  '  AND  RETURNS  IT  IN  THE  VAR  1  ROUE  'Maxlaua'  ALOHC  NITH  4 
•4  ITS  INDEX  IN  THE  VARIABLE  '  I  aaxlaua  '  .  4 

Sul  Paak_dat  ac * < Suaay < • > , N_duaay , Max  t >ga, I_aax  <  aua) 

n«x1aua«9 

ROR  I»0  TO  N  duaay-1 

IF  Duaay <T> >Hax  1 aua  THEN 
Nan  I aua«Duaay < 1 > 

I  aaxlauaal 
END  Tf 

NEXT  I 
SUIEND 

(  4444444 444444444444444444444444444444444444444  4444444444444444444444444 


(44444444444444444444444  SUBROUTINE  READF ILE3  44444444444444444444444444 
I  444444  64#444444444a444##444444444444464#4444a#a#4#a##aa44#444a#444##4a4 

(4  THIS  SUBROUTINE  READS  THREE  DATA  VECTORS  FRON  DISK  STORAGE  OF  4 

<4  EQUAL  LENGTH  AND  BOOTS  THEN  INTO  THE  DUHNV  VECTORS  X<4 >, Y(a », 2(4>,  4 

(4444444444444444444444444444444444444  4  444444444444444444444444444444444 

SUB  Raadfl  lt3(Nu«(,  Jobt.MadluaS.H  dat »,x<4>, Y(4>, Z(4>) 

DIN  Flit  n*at(C40) 


14444444444444444444  DEFINITION  OF  VARIABLES  4444444444444444444 
1444444444444  44444  444  4  4444444444444444446  44444444444444644444444 

I  NaatO  I  NAME  OF  SERIAL  FILE  CREATED  TO  RECEIVE  DATA 

!  Job*  I  DESCRIPTIVE  JOB  LABEL  OF  CONTAINED  DATA 

<  Hadlua*  I  ADDRESS  OF  HASS  STORAGE  NED  I  UN 

•  N  data  I  NUMBER  OF  DATA  ELEMENTS  IN  EACH  VECTOR  . 


I  ASSICN  BUFFER  I'O  PATH  TO  FILE  4 

! 444444444444444444444444444444444 

IF  M4dtua*>* i INTERNAL*  THEN 
Flit  naaataNaaatlMadl uat 
else 

Flit  na>4) «Nad t uallNaitl 

END  IF 

ASSIGN  OPath  1  TO  Fait  naaai 


14444444  READ  JOB  LABEL  444444444 

Enter  0Path_i|job* 

( 444  ENTER  NUMBER  OF  ELEMENTS  4444 
ENTER  0Pa»h_l|N_data 
144  CORRECTLY  SIZE  DATA  VECTOR  444 
REDIM  X(N_data-l  >,  Y<N_data-l),Z<N_data-l ) 
I4444444  READ  DATA  ARRAY  44444444 
ENTER  0Path_l|X<4), y<4»,2<4> 

>44444  CLOSE  FILE  AND  BUFFER  44444 


102 
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(210  ASSIGN  lf>th  1  TO  * 

(220  RESIN  X<409(~, Y<409(>,2<409(> 
(230  (U0CN0 


(240  t*********************************************************************** 
(290  I ****•****•*•**•••*♦*•*•  SUBROUTINE  NRITEFILE3  ************************* 

(2(0  . . **************************»****4********* 

(270  I*  THIS  SUMOUT1NE  ACCEPTS  THREE  SATA  VECTORS  OF  EOUAl  LENGTH  AHD  • 


(200  >4  WRITES  THEA  to  A  SISK  STORACE  FILE  UHDER  THE  FILENAME  SPECIFIES  • 
(290  14  SY  THE  USER  .  • 

(300  144444444444444444444444444444444444444444444444444444444444444444444444 

(310  SUB  Hr  It #Ft 1  *3<  Ha*>*P, Job*, M*dt  uaS , N  dat a,X<*> , Y< *> ,2< *> > 

(320  SIR  Flit  naa*f C40I 


(330  I  44444444444444444444444444.44444444444444444444444444444444. 
(34P  '4444444444444444444  BEFIHITI0N  OF  VARIABLES  444444444444444. 

(330  *444444444444444444444444444444444444444*4444444444444444444 

(3(0  !  Ntat(  I  NAME  OF  SERIAL  FILE  CREATES  TO  RECEIVE  DATA 

(370  •  Job*  I  DESCRIPTIVE  JOB  LABEL  OF  COHTAIHES  DATA 

(300  >  HadluaF  I  ADDRESS  OF  HASS  STORACE  AESIUH 

(390  >  H  data  !  HUHBCR  OF  DATA  ELEHENTS  IN  EACH  VECTOR  . 

(400  '44744*444444444444444444444444444444444444444444444*4444444 

(410  1 444444044444444444444444444444444 


(420  1 4  CREATE  DATA  FILE  FOR  STORACE  44 

(430  I  444444444444444444444444444444*44 

(440  Ft!*  *iz*aINT<N  data^O) 

(490  IF  H*dtuB*«*ilHT(RHAL*  THEM 
(4(0  F<1*  naa*04Haa*0LH*dtua* 

(470  ELOE 

(400  Ft  I*  naa*0>H*dt uaOiNaaoi 
(490  END  IF  ~ 

(900  CREATE  BOAT  Fil*  naaaO.Ftl*  six* 

(310  I **************************7****** 

(920  !  ASSICH  BUFFER  l'O  PATH  TO  FILE  • 

(330  I********************************* 

(340  ASSIGN  (Path  |  TO  Fit*  nasi** 

(390  ' 4******************************** 

(3(0  t • •  CORRECTLY  SIZE  DATA  VECTOR  *** 

(370  I  ********************************* 

(300  REDin  x < h  data'll, yin  data-l>,Z(N  data-n 

(390  ■ ************************** . . 

((00  . . .  STORE  JOB  LABEL  ********* 

((10  I********************************* 

((20  OUTPUT  (Path  I | Job* 

((30  t  ********************************* 

((40  •****  8T0RE  NUMBER  OF  ELEMENTS  *** 

((30  . . ************* 

(((0  OUTPUT  OPath  ||N  data 

((70  • ********************************* 

((00  I  *******  STORE  DATA  ARRAY  *•*•**»* 

((90  I ♦♦.»♦*•«»••*.»«**♦»♦»♦»•*»*.•*•*• 

(700  OUTPUT  OPath  1 j X< 4 > , Y< » ) , Z< »> 

(710  I . . 

(720  !*•*•*  CLOSE  FILE  AND  BUFFER  ***** 

(730  t ••••«•••••••••••••*•••••*•*••••*• 

(740  ASSICN  OPath  I  TO  * 

(730  8UBEHD 


(7(0  I ****4*44 *4*44 ••••••••••••**••••*•••••••»*•**•** *** *****4*4*44  *** * POP 4 • 

(770  • ♦**«•»••♦•***••*»**••••*  SUBROUTINE  PRINT  OUT  ******»*****************. 

(700  ! . *4  *4  * •*  »  44  *  4  »•*•*•*  »  *****  ****4*  **  *»**4*  *^**  ******  *  * • *4  **  *  *  *  4*  *  *  *  «  4  *  *  * 
(790  t*  THIS  SUBROUTINE  PRINTS  OUT  THE  BEARING  AMD  RELATIVE  • 


(000  ••  CONTRIBUTION  FOR  EACH  FREOUENCY  COMPONENT  IN  THE  DIRECTIONAL  * 
(010  '♦  SPECTRUM  .  • 

(020  I .•»••»•**••«*••*»«*»**•♦♦•••»»•»•*. ••««»»•»••••»•*»*»••*»•••*•*••«••*• 
(030  SUB  Print  out < Fr*qu*nc y < * ) , B**r t n9< • > , R* l^c onl t • ) ,N_dat a> 

(04 J  Pl*»4*ATH7l> 

(030  PRINTER  IS  ( 

(0(0  PRINT  CHRP < 1 2  > 


o.y  -  V:  .»'•  *\rt  v,v.<  V-Ib 
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PAINT 

6988  PRINT  -•••••••••••••••••••••••  FREQUENCY  BEARINGS  AND  CONTRIBUTIONS 

6990  PRINT 


(HI  PRINT 
6919  PRINT 

6979  PRINT  'Frtqutncy  B«4rtng  (dtgros)  Rqlqttvq  Corn  r  I  But  I  o 

n  OS)  • 

6939  PRINT 

6949  FOR  I  >9  TO  H  <J4t  4-  I 

6950  PRINT  USINC  For»4t_l|Fr»qu»fi<y<I>,INT<B#4r1og(I>»l800/Ptt)/19,IMT<R*l_ 
com(l>«l000>/10 

6969  For»4t  11  IN ACE  DD.DDD. I 6X, DDD. D, 22X, DD. DD 

6970  NEXT  I* 

6900  PRINT  CNR6< 12> 

6999  PRINTER  IS  1 
7999  SUBENS 


7010  I »••••»•••••••••••••••••••••••*••• »»**••*•»••*•»•**»•••**•*•*•**•••••• 

7020  itiMMHMitttxitMMtt  SUBROUTINE  M INDOME A 
7030 

7040  •  »  THIS  SUBROUTINE  PERFORNS  A  TRIANGULAR  UINDONIHC  OPERATION  • 


7050  )•  ON  THE  SUPPLIES  VECTOR  .  THIS  IS  A  PRELUDE  TO  A  FOURIER  TRANSFORA  • 

7060  <*  OPERATION  AND  IS  INTENDED  TO  REDUCE  SPECTRAL  SIDE  LOSING  .  • 

7070  •••••••*••»••••••••••• 

7000  SUB  N1  rtdou«r  <  v#«  t  or  <  *  >  ,  N  vtctor) 

7090  FOR  1-0  TO  N  victor-1 
7100  IF  I<N_v*ctor'2  THEN 

7110  V*cTor< I >-V«ctor< 1 >*<2*I/N  vrctor) 

7120  ELSE 

7130  V*c t OPt I )-V«c t or< I >•< 1 -2«< I-N  v»ctor'2>/N  victor) 

7140  END  IF 

7150  NEXT  I 
7160  SUBEND 
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31  Aug  1907  2*i 40i 32 

leee  •  ••*••••*••*•*•••••••*•*••••••••••*•••••••••*••*•••••••••••••••*•«•»*•• 

toie  •••**••••*••••••••••*••*•••  program  see  spec  •••••••••*•••«»••••••••**»* 

l«2l  > **************************»•**. *.***.*7*****.****.**..... ..**.*. **♦••*. 

>•30  '•  THIS  PROGRAM  BOOTS  IN  A  FREQUENCY  SPECTRUM  ANB  PERM  I T8  THE  • 

1040  1*  USER  TO  PLOT  AND  EXAMINE  IT  .  • 

tese  i »***••-••••**»•»♦•••*•*••**••*•*•**•*••**•*•*••»*••••••••**»*••♦•♦••*•*♦ 

teee  SIM  Fr*qu«ncy(4096>,HagnttudR<4O96>,Pha*c<4O96> 

1070  DIM  NaaeSC 16],M«dtua0(20],  JobftOOJ 

teee  i 

tese  '«♦»••♦*•*•»«••  DEFINITION  OF  LOCAL  VARIABLES  *♦•*•*»•••*♦♦•» 
i tee  •*•*♦••*♦••*«•«•*•***.•*••*•*«*•••*•»«***•*•*••»*•***«•••♦•*• 
llte  T  e*ap1**l/60 
1120  P7**4*ATNl 1 ) 

113e  H«dtua*a*BA£ICrDATA  FILE-* 

1140  Penc*2 

1 130  > *♦**»♦♦♦••**•«***»*•»*•***••«*••♦**•«*•••••*•*.*•*•*••*•♦••* 

1 160  PRINT  CHR»< 12) 

1170  INPUT  ‘Enter  FILENAME  of  SOURCE  Data  FIT*  . *,Naa«4 

1100  INPUT  ‘Enter  FREQUENCY  LIMIT  on  Sptctrua  <H*rtz>  ...*,F  aax 
1190  I******************************************* 

1200  I ••*•***•  COMPUTE  TIME  BASE  VECTOR  eeeeeeeee 

1210  t********************************** •*•*••••• 

1220  CALL  Readf t 1 e3(N*aet , Job* , Medt ua* , N  pot nt , Frequent y < * > , Nagnl t ude( • > , Phaae 

<*> ) 

1230  PRINT  CHR«<12> 

1240  PRINT  lob* 

1230  N  11att«INT<F  eax/Frequency(l>) 

1260  i7*eeee******;e*e**e*e**ee***e*e************ 

1270  I*  CONVERT  DATA  TO  FOURIER  TRANSFORM  SCALE  • 

1200  . . . . . 

1296  REDln  Frequency<N  1  I ■ 1 1 - 1 > ,  Magnt t ude< N  l i m 1 1~ 1 > , Phase <N  liatt-1) 

1300  FOR  1*0  TO  N_l t  a  1 1  - 1 

1310  Magnl  t udeTl  >*Nagnt 1 ude<  I  >*T  eaaple  * 

1320  NEXT  I 

1330  S_aax*MAX<Hagnt tude< •  > > 

1340  CALL  Plot  ft le<Freqg*ncy<*>,HagnltuO*C*>,N  liatt,0,F  aai,-S  aax, 8  aax, Pen 
C , * Y* ) 

1330  INPUT  *M1t  Return  to  CONTINUE  ...*,A* 

1360  P«nc*P*nc*l 

1370  CALL  Plot  f  t  le  (Frequency  <•>,  Phaeel*  >,  N  Matt, 8, F  aax,-2*Pte,2*Ple,Penc,*Y 
•  >  “  “  “ 

1380  PRINT 

1390  PRINT  "Total  Record  Length  1*  *|N _po!ntj“  Point* . • 

MOO  INPUT  *HIT  RETURN  .,.*,A* 

1410  GRAPH  ICS  OFF 
1420  PRINT  CNR* (12) 

1430  END 


1440  leeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeeeeeee******** 
1430  1  ****** eeeeeeeee********  8UDR0UTINE  READFILE3  ************************** 
1460  ' **•»«**«*••••*••*••••«•••••••*•*••*•»•••••*•*•••••••••*••»•••••••*••••* 

1470  '*  THIS  SUBROUTINE  READS  THREE  DATA  VECTORS  FROM  DISK  STORAGE  OF  • 


1480  I*  EQUAL  LENGTH  AND  BOOTS  THEM  INTO  THE  DUMMY  VECTORS  X( • > , Y< •> , Z(* > .  • 
1490  !***••**•***••*•***•*•*••******•*********•*******••••**••******••*•••*** 
1300  SUB  Readf 1 1 *3( Naa«* , Job* ,  Med iuaf , N  dal  a, X< • > , Y<* ) , Z< • > ) 

1310  DIM  Ftle  naa«*C401 


1320  ! •»•«•»***•••««<•*•*•••••»*•••••*••••••••••••»••••••••••••*• 

1330  I*******************  DEFINITION  OF  VARIABLES  •••♦*••*••••*♦• 

1340  ' tee******************************************************** 
1330  NaaeS  I  NAME  OF  8ERIAL  FILE  CREATES  TO  RECEIVE  BATA 

1360  !  Job*  •  DESCRIPTIVE  JOB  LABEL  OF  CONTAINED  DATA 

1370  >  Hediuat  •  ADDRESS  OF  MASS  STORACE  MEDIUM 

13*0  '  N  dal*  1  NUMBER  OF  DATA  ELEMENTS  IN  EACH  VECTOR  . 

1  390  •  »«Te.  »•*•*.*..,  **.»•****••»•••••  ••••»*>*«*.*••*••••*••***» 
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1610  I  ASSIGN  BUFFER  I'O  RATH  TO  FILE  * 

1626  I «•••••••••••••••••••••••••••••••• 

1(31  IF  H«dtua*>*i INTERNAL*  THEN 
1640  File  naa*f >N4a*SLH*dt utl 
1690  ELSE 

1CCS  Fit*  naa*(>H*di.ua*lN*B*t 
1670  END  IF  ~ 

1600  ASSIGN  .SFath  1  TO  Fit*  n aa*t 
1(M  I 

HM  I  *******  READ  JOB  LABEL  ••*••*••♦ 

1716  l ••••••••••••••••••••••••••••••••• 

1726  ENTER  SPath  1 i Job* 

1736  ' ••••••••••••••••••••••••••••••••• 

1746  '•••  ENTER  NUABER  OF  CLEAENTS  »••• 

1790  I •••••••••••»»••••••••*••••••••••• 

1766  ENTER  SFath  I|H  data 

1776  I ••••••••••••••••••••••••••••••••• 

1766  l**  CORRECTLY  SIZE  BATA  VECTOR  ••• 

1740  I********************************* 

1600  REOIA  X<N  dat  a-1 ) , Y(N  data-l>,2(N  data-l> 

1610  (•••••••♦•••••••••••♦I************ 

1626  I •••••••  REAS  BATA  ARRAY  •••••••• 

1630  i ••••••*•••••••••••••••••••••••••• 

1640  ENTER  SFath  1 | X< • ) , Y< • > , 2< • > 

1690  I ••••••••*•••••••••*•••••♦•♦•••••• 

1060  ••••••  CLOSE  FILE  ANB  BUFFER  ••••• 

1070  ! ••••••••••••••••••••*•••••••••••• 

i860  ASSIGN  SFath  1  TO  • 

1696  SUBENO 


960  I ••••••••••••*•••••••••••••••••••••••••••••••••••••••••••*••»•••••••••< 

916  I***********************  SUBROUTINE  FLOT  FILE  ••*♦•••*•«•*•♦•••*•**••• 
426  i ••••••••••••••••••••••••••••••••••••••«;••••••••••••••••••••••••••*•• 

930  I*  THIS  SUBROUTINE  ACCEFTS  TWO  DATA  VECTORS  AND  PLOTS  ONE  VERSUS 


1940  ••  THE  OTHER  ,  THE  USER  NEED  ONLY  SUPFLY  THE  LIHITS  OF  THE  GIVEN 
1990  <•  VECTORS  AND  THE  DESIRED  PLOTTING  COLOR  .  8CALING  AND  AXES  ARE  AUTO - 
1960  I*  HAT ICALLY  PROVIDED  BY  THIS  SUBROUTINE  . 

1970  t •••••«••*•*•••••••••••••••••••••••••••••••»••»•••••••••••••••••••••*• 

1980  SUB  P 1 ot _f i I • <  Xdat  a<  * ) ,  Ydat *< • > ,  Np I o t , Xa  t  n , Xaax , Ya  t  n , Yaax , P*nc , N*w* ) 
1996  CON  'PloT  block'  Xical*,Y*cat*,Xofr**t,Yorfs*t 

2060  i*********************************************************** 

2016  i  ••••••«••»«•••  DEFINITION  OF  LOCAL  VARIABLES  *•**♦•*••***• 

2620  '•*•••♦***««• 

2030  •  Xdat  *( • > 

2040  !  Ydatao) 

2090  •  Np I ot 
2060  <  Xat  n 
2070  I  Xaax 
2080  I  Ya 1 n 
2090  I  Yaax 
2100  •  Pane 
2110  I  N*w» 

2120  Mh 1 1 «a 1 
2136  A  cotoraUhtt* 

2146  xT*f t  *0 
2196  Krai  1 >28 
2160  Xc*nt*r>64 
2170  Xr 1 ght a  1 28 
2100  Ybottoa>0 
2196  Yrai I >16 
2200  Ye  »nt*p>48 
2210  Ytop>96 
2226  I  X_d*noa 
2236  !  Y  d*noa 
2240  i •*••«•••••*• 

2230 

2266  !•«  CLEAR  AND  INITIALIZE  GRAPHICS  IF  SPECIFIED  * 


I  ABSCISSA  BATA  VECTOR  TO  BE  PLOTTED  . 

I  ORDINATE  BATA  VECTOR  TO  BE  PLOTTED  . 

•  NUABER  OF  BATA  POINTS  IN  VECTORS  . 

I  SHALLEST  ElEHENT  IN  Xdat  a(*>  VECTOR  . 
t  LARGEST  ELERENT  IN  Xdata<*>  VECTOR  . 
t  SHALLEST  ELEHENT  IN  Ydata(*>  VECTOR  . 

I  LARGEST  ELEHENT  IN  YdataCO  VECTOR  . 

•  DESIRED  COLOR  CODE  OF  PLOTTING  COLOR 

t  ORDERS  TNE  ROUTINE  TO  CLEAR  TNE  GRAPHICS 

•  DEFINE  TNE  COLOR  CODE  FOR  UNITE 
t  SET  AXIS  COLOR  UNITE 

t  DEFINE  LEFT  OF  SCREEN 
I  DEFINE  X  AXIS  RAIL 
I  X  COORB  CENTER  SCREEN 

•  DEFINE  RIGHT  SCREEN 

•  DEFINE  LOUER  SCREEN 
I  DEFINE  Y  AXIS  RAIL 

•  Y  COORDCENTER  SCREEN 

•  DEFINE  TOP  OF  SCREEN 
I  DCNOHINATOR  OF  X  PLOTTING  SCALE  FACTOR 

I  DENOHIHATOR  OF  Y  PLOTTING  SCALE  FACTOR 


(Plotter  Unit#) 
<Plott*r  Unit*) 
(Plotter  Unit*) 
<P!ott*r  Unit*) 
<Plott*r  Unit*) 
<Pl0tt*r  Unit*) 
< P I ot t *r  Unit*) 
<P)ott*r  Unit*) 
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2279 

2289 

2299 

2399 

2319 

2328 

2338 

2348 
2399 
2389 

2378 
2389 
2399 
2499 
2419 
2428 
2438 
2448 
2459 
2489 
2478 
2498 
2498 
2399 
2319 
2328 

2339 

2349 
2339 
2388 

2379 
2388 
2398 
2898 
2818 
2628 
2839 
2848 

2838 
2888 

2878 
2888 
2898 
2788 
2719 
2729 
2739 
2749 
2739 

2788 
2779 

2789 
2799 

2988 
2819 
2929 

2839 
2949 
2939 

288e 

2879 
2888 
2898 
2998 
2918 
2929 
2939 
2949 
2939 

2989 


I  ••••••••••••••••••••••••••••••••••••••••••••••• 

IF  hox*»*y*  Then 
C1NIT  1.3 
GRAPHICS  OH 
PEN  Whl  to 

VIEWPORT  Xl  of  t',  XT- 1  ght ,  Ybot toa, Ytop 
FRAME 

i  •*••*••••••••••••• *********** 

••  DRAM  PROPER  AXES  FOR  PLOTTING  • 

1 ••*•••••••••••••••••••••••••••••• 

IF  Xat  n<8  THEM 

IF  '•tn<9  THEN  (••»»»••••»••«#•••••••»•••••••• 

XoffSot»Xcontor  •«  FOUR  QUAD  AXES  DRAUN  HERE  • 

YoffnuVc*m«r  l«o»»»««*o»««o***o*oooo»o»«oo*« 

X_donoa«Xaax 

Y_donoa«Yaa* 

CALL  Ax  I  s_dr aw<X1 oft , Yof fsot , Xr t  ght , Yof  f »»t , A_eol or, -Xaax, Xaax) 
CALL  Axt  s”dra« < Xof fsot , Ybot t oa, Xof f sot , Ytop, A~col or, -Y**x, Ya** ) 

else  "  . . . 

Xoffsot-Xeontor  !•  ♦  X  TYPE  AXIS  DRAWN  HERE  • 

Yoffsot»Yrat 1  loosooooooooooooooooosooooooooo 

X_donoa«Xoax 

Y_donoo«Yo4x- Ya  I  n 

CALL  Axt  s_drau<Xl of t , Yof f tot , Xr  t  ght , Yof foot , A_tol or , -Xaax , Xaax ) 
CALL  Axis  drau<Xof fsot , Ybot toa, Xof fsot , Ytop, A~col or , Yaln, Yaax) 
END  IF 
ELSE 

I?  Yaln<8  THEN  i *o»»s«»»oooooooooooo»ooooo»o*o 

Xof f sot »Xra< 1  ••  +/-  Y  TYPE  AXIS  DRAWN  HERE  o 

Yof foot  «Ycontor  loooooosooooooooooooooooooooooo 
X_donoa*Xaax-Xa  1  n 
Y~donoa» Yaax- Ya I n 

CALL  Ax i s_dra«<  Xof  foot , Yof  foot , Xr i ght , Yof fsot ,A_col or ,Xal n,  Xaax  > 
CALL  Ax  t  s~draw<Xof fsot .Ybot  too, Xof fsot , Ytop, A_eo I  or , -Yaax, Yaax) 
Yof  f  so t •  Ybot  t  oa 

ELSE  . . . . . 

Xof f sot »Xr  al 1  <o  ♦  ONLY  XIY  AXES  DRAWN  HERE  o 

Yof fsot • Ybot  too  looootosooooooooooooooooooooooo 
X_donoo»Xoax-Xotn 
Y_donoa*Ya«x-Yat n 

CALL  Axl s_draw<Xof f Sot ,Yoffsot,Xrt ght , Yof fsot , A_c Ol or , Xat n, Xaax ) 
CALL  Ax l s—draw<Xof fsot , Yof fsot , Xof fsot , Ytop, A  col  or , Yat n, Yaax> 
END  IF 
END  IF 

Xsc  »1 o«<Xr t  ght  -  Xof fsot I'X^donoa 
Ysc *1 o«( Ytop-Yof f sot )^Y  donoa 
END  IF 

I  •fttltMItftfllltttlttttMtMt* 

I*  DATA  VECTORS  PLOTTED  SELOW  * 


PEHUP 

CALL  Seal  or <Xdat a<  8> , Ydat  a<8 > , Xa I n, Xta* , Ya i n, Yaax, X  plot, Y_p1 ol  > 
PEN  Pone 

HOVE  X  pi ol , Y  plot 
FOR  I *8  TO  Nplot-l 

CALL  Scalor<Xdata<I>,Ydata<l>,Xaln,Xaax,YBln,  Yaax , X_pl ol ,  Y _pl ot ) 
DRAW  X  plot.Y  plot 
NEXT  I 
SU3END 


SUSROUT 1  HE  AXIS  DRAW 


!*  THIS  SUIROUT I  HE  DRAWS  AN  AXIS  FROM  THE  STARTING  COORDINATE  To  o 

>♦  THE  FINAL  OHE  .  IT  also  eUANTIFIES  THE  ORICIN  AND  TERMINUS  OF  SAID  o 
AXIS  .  • 

>  «*oo»«*»oo*»oooooooooo*oo oooooooooooooooooooooooooooosooooo 
8Ut  Axis  draw<Xst art , Yet ar t , Xf Inal , Yf I nal , Axl s  color, A  atn,A_aax) 

P  I  o*4*ATNC 1 ) 

Do  1 1  a* 3 
»ENUP 
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2976  PEN  Ait*  color 
298S  PENUP 

29ft  MOVE  X*lirt,Y»l*ct 

3999  DRAM  Xf I nal  ,  Yf I nal 

3919  PENUP 

3929  CS12E  3.9,. 5 

3939  CALL  Rounder <A_a < n,  3, A9) 

3949  CALL  Rounder <A— aax, 3, Al ) 

3939  IF  XlUM>Kflntl  THEN 

3999  CALL  Lobe  1 1  * <X*t or t -De 1 t », V»t art ,PI e'2, Axl •  col  or, VAL9< A9> > 

3979  CALL  Label 1 1 <Xf I nal -De It  A, Yf I nal -2*De  1 1 a,PI  e'2,  Axl  *  col  or, VAL»< A» ) > 
3999  ELSE 

3999  CALL  L 4b e I  I t <X»t Art , Y»t art-B* 1 1 A, 9, Axl t  color, VAL9<A9>> 

3199  CALL  LAbellt<Xflnal-2*LeltA,Y*tArt-DeUa,0,Axt»  color ,VAl9<A1  > > 

3119  END  IF 
3129  SUtEND 

3139  I****************************************************#*#********#*******! 
3149  I»e«»4«444»»*»».e. 444*4  SUDROUTINE  LAIELIT  •**•♦•**•«••*•#••••♦»•♦*»••♦•< 
3139  >*******4***************************4***********************************< 

3199  •*  THIS  SUBROUTINE  SIAPLY  ACCEPTS  THE  GIVEN  LABEL  AND  PLACES  IT  WHERE  i 

3179  !*  IT  IS  SPECIFIED  <1#  X,Y  LOCATION)  AT  THE  GIVEN  TILT  ANCLE  .  THE  PEN  i 

3199  '*  COLOR  'Penc'  IS  ALSO  PROVIDED  BY  THE  USER  .  THIS  SAVES  A  LOT  OF  i 

3199  '*  REPETITIVE  CODE  .  < 

3299  •  4444444444444444444444444444444<4444444444<4  444<  4«*4* ****** *444 4444444I 
3219  SUB  LAbe ltt(X,Y,Ttlt, P*nc , Strngl) 

3229  PENUP 
3239  MOVE  X , V 
3249  PEN  Penc 
3239  LBIR  Tut 
3299  LABEL  Strng* 

3279  PENUP 
3299  SUBEND 

3299  I*********************************************************************** 
3399  X*************************  SUBROUTINE  SCALER  ************************** 
33 19  !4444<*4**<***4444*4***4*4*»4*4*****<**»*»**444»4*44»44*4*4******4»4**** 
3329  1  *  THIS  SUBROUTINE  SCALES  THE  DATA  PASSED  TO  IT  FOR  CRT  PLOTTING  * 

3339  •*  PURPOSES  .  • 

3349  . . •<••<«• . . . *••• . . 

3339  SUB  8c  *1  er  <  x_d  at  a,  Y_dat  A,  Xa  t n,  Xoax,  Ya  t  n,  Y*> ax  ,  X_p  I  ot ,  Y_p  1  ot > 

3399  COM  rPlot_01oc*x  X»c aI * , Y»c Al e , Xof f met ,  Yof f »* t ~ 

3379  X_plot«X»CAle*<X_d*t o*XPln)»Xoff **t 
3399  Y_plot»Y»c *le*<Y_d*i A-Yoln)4Yoff»*i 
3399  SUBEND 

3499  !♦••• . •••*••••• . •«•»••••»«••*. . ••*•••»•»•••••••••*•*«••••« 

3419  •*••••*•••*•••*•••••••*••  SUBROUTINE  ROUNDER  *************************** 

3420  I*********************************************************************** 

3439  I*  THIS  SUBROUTINE  ACCEPTS  A  NUMBER  OF  ANY  SIZE  OR  SIGN  AND  * 

3440  !*  ROUNDS  IT  TO  THE  SPECIFIED  NUMBER  OF  DIGITS  .  * 

3439  I **•••*•♦•••*•*••••*•»•*»*•**•••*••»•»•••♦*••»••»*•••«•••••••*••••*•»•*• 

3499  8UB  Roundercx  input, N  digit*, X  rounded) 

3479  1 4 •«****♦••» 4*4 ♦♦*•**•♦* *4»4**T4444 *4 4 ******* *44 *•♦****•• 4 
3499  I4***4***4*»*  DEFINITION  OF  LOCAL  VARIABLES  ***•***••*•••* 

3499  I *••••*••••••••••••••••••••••••••••«•••••••••«••*»••••••*• 

3399  <  X  Input  I  INPUT  NUMBER  TO  BE  ROUNDED 

3319  I  X  duoay  I  DUMMY  VARIABLE  USED  TO  PROTECT  X  Input 

3320  I  N_d I g 1 1 *  I  NUMBER  OF  DIGITS  DISPLAYED  AFTER  ROUNDlHC 

3539  I  X  rounded  •  ROUNDED  EQUIVALENT  OF  X  Input 

3349  I  Sign  I  NUAERICAL  POLARITY  OF  ROUNDED  NUNDER 

3339  ■  Magnitude  I  ORDER  OF  MAGNITUDE  OF  INPUT  NUMBER 

3369  >  Mantlet*  I  MANTISSA  OF  NUMBER  UNDER  ROUNDING 

3379  I  ARCUMEHT  I  ABBREVIATED  VERSION  OF  MANTISSA. 

3309  >••••••••••••••••••••••••<•*•*•<.•••••••••••••••••••*•*••• 

3399  IF  X_lnput<>9  THEN 
3999  X^duaayxX^I nput 
3619  SI gn«SCN< X_duaay ) 

3929  X_duaay*ADStX_duaay> 

3939  Hagnltud**INT~LCT(X_duaay>> 

3649  Mart  I *»a*X_duaay>< 19-Magnl tud«> 

3639  Arguatnt  *1NT  ( riant  I  »» a*  1 8-  < N_dl  91 1  *- 1  > )  /  lS-<H_dl  91 1 »- 1  > 

3699  X_round*d*8l gn*Arguaent 4 l B*Magnl t ud* 

3970  ELSE 

3486  X  round*d*X  Input 
3499  £ND"IF 
3799  8UBEN0 
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Appendix  E 

SEA  SURFACE  REPRODUCTION  SOFTWARE 

(1)  MAKE_MODEL  Program 

(2)  MAKE_WAVES  Program 

(3)  VI EW _ SEA  Program 
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31  Auj  1367 


2(142) |« 


ieee 

1(16 

1626 

1636 

1646 

1696 

1666 

1676 

1666 

1696 

1166 

1118 

1126 

1136 

1148 

1138 

1169 

1179 

1168 

1198 

1268 

1219 

1228 

1236 

1246 

1236 

1266 

1276 

1266 

1298 

1366 

1316 

1326 

1339 

1346 

1336 

1366 

1376 

1366 

1398 

i486 

1416 

1426 

1436 

1446 

1436 

I486 

1476 

1466 

1496 

1369 

1916 

1926 

h<4> ) 

1936 

>  > 

1346 

1956 

h<  •  >  > 

1966 

1979 

19(6 

1996 


144444444444444444*044444  PROCfcAM  RAKE  MODEL 


I*  THIS  PROGRAM  GENERATES  ALL  OF  THE  NECESSARY  INFORMATION  4 

'•  TO  .CREATE  A  MODEL  OF  THE  SEA  SURFACE  SASED  OH  HAVE  COMPUTER  ♦ 
MEASUREMENTS  .  • 

COM  /Uav*1*ngth/  26  **g(4f96) , 2d*  aag(4696) , Zdy  aag(4696> 

D I M  Z6_» t gh < 4696 ) , 2dx_a I gh 1 469  S  > .  5d y_a ( gh ( 4696 >7»ubb y < 4696 > 

DIM  N*»«*(  161 , Naa*  angSC 16), Naa*  *p*c6( 16), Naa*  aodSC 14) , JobSCSO) 

DIM  Phi (4696) , Th«i*<4896> , Dz_dx <4996), Dt_dy< 469?) 

DIN  Fp®du«ncy<4996 ) ,  Aap  1 1  tudf  <4696 '/ ,  Pha»» <  4696 > 

DIM  tear 1ng< 4696) , Hav*l*ngth(4996) , V*1 oc tty (4896) 

PRINT  CHR(( 12) 


i  *»4*******»*44*  DEFINITION  OF  PSOCRAM  VAR  1  BILES  44444444444444a 


t  28_o*g(4> 

!  D*~dx<4) 

1  D*3dv<«) 

!  PhT ( • > 

I  Th*ta<4> 

I  Duaayt*) 

!  Fr«pu«ncy<») 

I  2dx_a*g<»> 

I  2dy~aag<*> 

'  2dx~aigh<«> 

I  Zdy'  a  1  gh(  •) 

1  AapTl»ud«(*> 

1  Ph***(*> 
i  Saar  irg(* ) 

1  Haw* 1 »ngi h< o > 

l  v« 1 «c 1 »y < • ) 

1  n  data 

'  N-polnt 
'  N"a*x 

A#d7waf-*SASIC/DATA  FILE/* 

Pi*«44»TM( 1 ) 

T_a«ap1(*t/66 

>»•<*« **«1Y »•••••••»•••**•«*•*••••»»»••»•<••*«*•••*** ••*•*•••••• 

INPUT  *Ent«r  FILENAME  Q<  SOURCE  SATA  <0alt  Ext*na(on)  .  ,..*,Naa*» 
INPUT  *Eht»r  COMPONENT  TRUNCATION  LENGTH  ....*,  N_aax 
Naa*_i»Naa*«S‘  SPEC* 

Naaa  dirl^NaatSl*  DIR* 

Naaa~ang(«Na>*(i *~ANC* 

4aa«_»dx(»Ha«*(S*~S0X* 

Naa*  *dy»»Maa#*l*-SDY* 

N*»«~*ad(»Na»*6t *” MOD* 

I  ••«•♦•••••••••»•#*••••••••••••••#•*•••••*•#•#*•*•# 

<*  SOOT  IN  DIRECTIONAL  AMD  VERTICAL  SPECTRAL  DATA  • 


•  2  VECTOR  MAGNITUDE  SPECTUA.  <F**t/H*rta> 

'  PARTIAL  Df  A1VATIVE  OF  2  HAT  K.  <D I aanal or>1  #»») 

I  PARTIAL  DERIVATIVE  OF  2  HRT  V.  (Dt  a*nat  pnl  Ml  > 

•  ELCVATtONAL  ANCLE  OF  UNtT  HOAHAL. 

'  AZIMUTHAL  ANGL-  O'  UNtT  NORMAL. 

'  GENERAL  PURPOSE  DUNHY  VARIAELC. 

•  FRESUEHCY  OF  NAVE  CORRONENT. 

1  dZ/dx  MAGNITUDE  SPECTRUM  . 

•  dZ/dy  MAGNITUDE  SRCCTRUR. 

>  dZ /fix  PHASE  SPCCTRUA  . 

>  dZ/dy  PHASE  SPECTRUA  . 

<  AMPLITUDE  Of  HAVE  COMPONENT. 

I  ANGULAR  DELAY  OF  HAVE  COMPONENT. 

1  PLANE  HAVE  COMPONENT  DIRECTION 

•  NAVCLENGTN  OF  NAVE  COMPONENT. 

'  VELOCHY  OF  NAVE  COMPONENT.  (F**t/**COnd) 

>  NUMSIR  OF  DHTA  FOINTS  IN  SPECTRUA8. 

•  NUMSER  OF  FPT  POINTS  COMPUTED. 

•  NUMSIR  OP  MOSEL  PREQUfMCr  COMPONENTS  CONSIDER 


(Radi  ana  > 
(Radian*) 

(M*rt  a ) 
< 1 /Hart  z  > 
< I /Hart*) 

(Radian*) 
(Radi  ana) 
(Fast  > 
(Radi  an») 
(Radi ana> 
(Faat  > 


MSP  ■•*♦*•••••#•*••  SOOTING  IN  REQUIRED  DATA  PILES  *************** 

CALL  R*ad f l 1 *3<Maa*_zt, Job* , M»d l uil,  N_dat a, Pr**u#nty <  »> ,26_aag( •), 26_a l g 


CALL  R«*d7 1  1 *3<Haar_dt  r *, Job* , M*dl ua* ,  N_dat  a, Duaay ( • >  ,  l*ar  1  ng<  •  > , Duaay ( • 


CALL  Roadf I  I *3<N»a«_*dx* , Job* ,M*dl ua( ,  N_dat a,  Duaay (* ) , Zdx_aag< •  > , Zdx_* I g 
CALL  Rvadf ’ I *3<Naa*_*dy*, Job*, M*dl ua* , N_dai a, Duaay <• > , Zdy_aag < •  ) , Zdy_a I g 


N_duaay»H_dai a 

CAL'.  R*adfM*3(N*a*  angt,  Job*,M*dl  va»,N  duaay.  Phi  (•),  Th«ta<*> ,  Duaay<*>  ) 
D  ISP 

N_po 1  nt  *2*  1  NT  ' LOG ( N_duaay ) /LOG ( 2  > ♦ l > 
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1*88  l  44444444444444* #444444444444*44444444*444444444444 
1 « 1  e  !•»««•»<•  EFFECT  BEARING  ADJUSTMENTS  ************ 

1*28  I********.  ***************************************** 

1(11  CALL  Sparing  1 1  x<  Baar  t  ng<  • 5 ,  H  data.Pt*) 

1(4*  1 ********4*******************7********************. 

1(51  I  ************  I7UR-1K  SPECTRAL  PHASE  ************* 

1SSS  I************************************************** 

ISPS  HAT  Pha*a«Z3  »1gh 

1SSS  I *****p*****4**************************a*********** 

1SSS  I*********  COMPUTE  AMPLITUDE  COEFFICIENTS  *********  1 

17SS  I  *********************************4**************** 

17IS  CALL  Aaplttuda(28  •*g<*>,N  da  >, H_po I nt , Map  1 1 1 wd*< * > > 

1728  '  ****************7********************************* 

1 739  '**-  COMPUTE  NAVOLENCTMS  OF  FREQUENCY  COAPOHEHTS  •» 

174S  I************************************************** 


179*  CALL  Mav*l*ngth<B*arlng<*),N  dat «, Pi  d, Naval mjihn) ) 

17*8  I  ************************************************** 

1778  l*«  COMPUTE  HAVE  FREQUENCY  COMPONENT  VELOCITIES  •* 

1  718  l************************************************** 

1788  CALL  Vt  lo<  1 t  y <  Fraqvanc  y < •  )  ,  Uav*  1 angt  h<  4  ) ,  N  dat a, Val oc I ty<*> > 

1888  144444444444444444444444444444444444444444444444444 

1818  1444444444  OUTPUT  SATA  TO  BISK  ANB  PRINTER  44444444 

1828  144444444444444444444444444444444444444444444444444 

1838  INPUT  ‘STORE  Modal  Coafftclanta  on  BISX  7  <Y/N>  .....*, AS 
1848  IF  A»4"Y*  THEN 

1838  BISP  *44444444444  STOR1NS  SEA  SURFACE  MOBEL  COEFFICIENTS 


18*8  CALL  Url t»n lo*(Naa4_aod*, Job*. Modi uo*,N_aax, Frequency! 4 >, Aapl 1 tuda<* 

) , Pha*4( 45 , tear lng<*5 , U*u* 1 »ngth(*5  , Valoc I ty(4>  > 

187*  END  IF 

1888  INPUT  -BUMP  MODEL  PARAMETERS  to  tn*  PRINTER  7  <V/N>. . . , *,A8 
1890  IF  AS--Y-  THEN 

1998  DISP  *44444  OUTPUTTINC  SEA  SURFACE  MODEL  COEFFICIENTS  TO  PRINTER  4444 


4* 

1918 

gth<*>, 

192* 

1938 

1948 

1938 

19*8 

1978 

1988 

1998 

2888 

2818 

2828 

2838 

2848 

2898 

28*8 

2078 

2888 

2898 

2188 

2118 


CALL  Prtnt^out*<Fnaau4«<y<4>,Aopt 1 1 uda <•), Pnaaac •>, Boar l ngi*> ,ltava 1  an 
valoc ity<4>,N  data) 

END  IF 

CALL  vtdao  gaaaci) 

DISP  *44444444444444  MOSEL  RECORDING  PROCESS  COMPLETE  444444444444444* 
END 

1444444444440444444444444444  SUSROUTINI  FFT  444444444.444444444444444444 

14  THIS  SUBROUTINE  PERFORMS  A  rV,#T  FOURIER  1 RANSFORM  ON  THE  4 

14  DEPOSITED  DATA  VECTOR  '  X  InpuKo)  THE  REAL  PART  OF  TNI  SPECTRAL  4 
14  VECTOR  IS  RETURNED  IN  ThI  VARIABLE  '  F_raa1<4)  '  AND  TNI  IMAGINARY  4 

14  PART  IS  RETURNED  IN  VARIABLE  '  F  loagaco)  '  .  IT  IS  IMPORTANT  TO  4 

14  NOTE  THAT  ,  IN  ORDER  FOR  THIS  FFT- ALGOR  I THN  TO  MORK  THE  NUMBER  OF  a 

14  data  POINTS  UNDER  ANALYSIS  MUST  BE  A  POMER  OF  TNO  II  • 

SUB  Fftcx  Input < a), N_pol nt , PI a,Magnl tvda(*> , Pha*a< •) > 

DIM  Real  I<489*>, Iaaga  1 <499* > , Raal_2<489«) , Iaaga_2<489*> 

DIM  P_1 ndax < 2848 > , Q_ I nda x < 2 848 > 

REDIH_R**I_! <N_polnt-l  >, laag*_l <N_polnt*I > 

REDIM  R*al~2<H  pplnt-l >, Iaaga_2<N_pclnt-l> 

RAO 


2128  PI 4*44ATN< 1 5 

2138  V  pal  nt ■ I  NT < LOGIN  po I nt 5/LOCT2 )  > 

2148  144444444444444444444444444444444444.44444444444444444 

2138  144444  ORDER  DATA  VECTOR  FOR  INPUT  OF  TRANSFORM  ****** 


21*8  144444444444 . 44444444444444444444444444444444444 

2178  CALL  Bit  rav*r*a<X  input(4>,N _polnt,V  pol nt , Real _1 < •) > 
21*8  144.4444744444444474444444444444 
2198  14  HULL  IMAGINARY  INPUT  VECTOR  • 


2288  144444444444444444444* 

2218  FOR  1*8  TO  N  polnt'2-l 
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222*  1*40*  (<!>•• 

2220  NEXT  I  " 

2240  FOR  I_»t40«*0  TO  V _*olnt-l  I  START  STACE  STROBING  LOOR 

2290  C XL L  But t*rf 1 y <M_po1 nt , V  point, 1  1nd*x<»>,0  tnd*x<*>> 

22(0  FOR  J  butt*rf 1y*0  TO  N  ootnt'2-l“  I  8TART  BUTTERFLY  STROBING  LOOR  . 

2270  I  ••••••••*•••••♦*•*•*• . . 

2200  (•  BE  TERN  I  HE  BUTTERFLY  BRANCH  R0IHT9  • 

22*0 

2300  R*F_1nO*x< J_buit*rf ly> 

2910  Q*Q~1 nO*x<  J~bwt  t  *rf I y > 

2920  R  »oy*r*FHI?odul  oC  J_butt*rf1  y*2~<  V_pol  nt -1-I_»t40*>  ,N_po1nt'2) 

2300  CALL  Fh**or<R1*,N Joint ,  R_pou*r ,  H__r*4l  , M_1*ag*> 

2340  CALL  Rrodut  t_44*pT*x<N_r*4l  ,«_1  *404,  R**l”l  <0> ,  l**g«_l  (9),tuHy_rul , 

Du**y  1  ■* g* )  ~  “  ~  ~ 

2390  t  •**•****••**«•*••«••••••*•*•*#•**•* 

23(0  l«  CONFUTE  URRCR  HALF  OR  BUTTERFLY  • 

237*  . . . 

2300  R*at_2(R)*R*4l_l (R>*Bu**y_r*4l 

23*0  I**04  2(R>*I**0*  l<R>*Bu**y  14404 

240*  i 

2410  1*  COARUTC  LONER  HALF  OF  BUTTERFLY  • 

2420  iMtdHMtMMHMMMUtltlttMttt 

2430  **4t_2<Q>***Al_l<R>>Bua*y_r*al 

2440  1*404  2(Q)*I*404  1 <R)*Bu**y  14404 

2490  NEXT  1  butter  My 
24(0 

2470  1*  URBATE  NEXT  CYCLE  0OURCE  VECTOR  • 

2400  1 •»••»•«*•»••*•»»•»••»•»»•»•**••••«• 

24*0  HAT  R*4l_l*R*4l_2 

2900  NAT  I**g7  1*1*40*  2 

2910  NEXT  I  *  1 40* 

2920  I •••••••••**•*•*••**••*•**•*•****•••*#*•**••*• 

2930  I*  BCTERHINC  HACNlTUBE  ANB  RHA0E  OF  0RCCTRUH  • 

2940  l •••••••••#«•••••••••«•••••••••••••••••••••••• 

2990  CALL  Hag_ph***<R**l  2<*>,l*ag*  2<*  > ,  M  *qi  nt  i  nagm  t  ud*<*  > ,  Rh»»*<«  > ) 

29(0  SUBENB 


2970  . . . 

290*  i «••••••••••••••••••••••••  0UBROUT1NE  HAC  RHA0E  a********************* 

29*0  i a#**#*#*#*****#*##*#****# . . 

2(90  I*  TNI*  9UBR0UT INC  CONFUTE*  THE  NACNITUBE  ANB  RNABE  OF  THE  COHRLCX 


2(1*  I*  VECTOR*  RROVI Br -  IN  THE  VAR1ABLC0  '  X  r**l<*)  '  AND  '  X  t*40*<*> 
2(2*  I •  THE  RESULTING  r  NITUBE  IS  THEN  STORE?  IN  THE  VECTOR  7  R  **0<*>  ' 

2(3*  t*  ANB  THE  RHASC  ..  STORED  IN  THE  VECTOR  '  R  ******{•>  ' 

2(40  I •••<•*•••••••••••••••••••»«••••••••••••••«•*•••••••••••••••*••••••••• 

2(9*  SUB  A**  *ha**(X  r*al<»),X  1 *ag*(* > , N_pot nt , R  »afl<*),F  oha»*<*>> 

2((0  Rt**4*AiN< 1 >  '  “ 

2(7*  FOR  1*0  TO  H  *01 nt - I 

2(00  R  *ag<l>*SBR<X  r*a1  <  1  >*X  r**I<I>*X  1*ag*(l>»X  l*4g«<l>) 

2(*0  iF  X  r«*i <!><>?  THEN 

270*  Rh44«*ATN< ABS< X  1**4*<I>/X  r*alM>>> 

271*  ELSE 

272*  RN*a«*Rl*/2 

279*  CHB  IF 

274*  X  a<gn*SCN(X  r*al<t>> 

2790  Y~* 1 gn*SCH(X~l *40* ( I > ) 

274*  iF  Y  *tgn>*0~TKEN 
277*  iF  X_*tgn>*0  THEN 

270*  R_phaa*< I >*Rh4*« 

27*0  ELSE 

2*0*  R  *h*»«< 1 )*Rt*-Rha*» 

2*1*  ENB  IF 

2*2*  ELSE 

203*  IF  X_»1gn>*0  THEN 

2*4*  R”pha»*  < 1 >  *-Rh*** 

2*90  ELSE 

20(0  R_ph*»*< I >*Rh*»*-R1 » 
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END  IF 
CHS  IF 
NEXT  I 
SUIEND 


SUBROUTINE  bit  reverse  »•••••••••••••••••••*••# 


•  THIS  SUIROUTIME  performs  a  sit-reversal  ofcrrtion  on  the  • 

•  DEPOSITED  INPUT  VECTORS  INBICES  .  THIS  IS  IN  PREPARATION  FOR  AH  • 

•  IN-PLACE  FAST  FOURIER  TRANSFORM  OPERATION  .  • 


SUt  Bl t_rever»e<Vecier_tn< •) , N_vector, N_power , Vec t or_out <*) > 
BIN  Index  ln< l*> ,  Index~out < 1C >~  * 


••••••••••••*•  DEFINITION  of  local  VARIABLES  •••••*••••••• 


Victor  into)  •  INPUT  VECTOR  TO  BE  BIT  REVERSE  SORTEB. 

N_pover  I  LOC  BASE  TNO  OF  tHPUT  VECTOR  LENCTH  . 

N  vector  I  ACTUAL  LENCTH  OF  INPUT  VECTOR  . 

Index  Into)  l  BINARY  INPUT  VECTOR  REFERENCE  INDEX  . 

Index“out<e>  I  BINARY  BIT  REVERSED  OUTPUT  VECTOR  INDEX 

Vector  outte)  •  BIT  REVERSE  SORTED  OUTPUT  VECTOR  . 


FOR  !•#  TO  N_power  I  HULL  BIT  INDEX  H0RD8 
Index_in< I >•# 

Index~out < I >•§ 

NEXT  I 

FOR  I«S  TO  N  vector- I 
IF  lOS  TmFn 

CALL  Inc  btnerytlndex  I nt • ) , N  Dover > 

END  iF 

CALL  Ref lectt Index_ln<e),H _pover , Index_out <e > ) 
CALL  Beee_ten< Index_tnt#),N_pouer, I  Input) 

CALL  Beee_ten< Index  outte),N  power, T  output) 

I *••«•••«#••>*»• «eee« •««••••»*» 'eeeteeeeeeee 
BIT  REVERSED  INDICES  OPERATION  BELOM  . ee 
• eeeeeeeeeeeeeeeeeeeeeeteeeeeeeeeeeeeoeeeeee 

Vector  outtl  output >eVector  inti  input) 

NEXT  I 
SUBEND 


teeeeeekeeeeeeeeeeeeeeee  SUBROUTINE  INC  BINA 


'e  THIS  SUBROUTINE  PERFORMS  A  BINARY  INCREMENT  OPERATION  ON  THE  e 
le  DEPOSITED  BINARY  VECTOR  '  Word  lnc(#>  '  AND  RETURNS  THE  RESULT  IN  e 
IP  THE  SANE  VARIABLE  .  ~  * 


SUB  Inc_bl nory<Mord_l net#), N_pover > 
Corry_fl«e»S  " 

Done  f I 
I«B  ~ 

UHILC  Bone  f 1e9«f 
IF  THEN 

IF  Nord  InctDwR  THEN 
Hord“lne<I)«J 
Done~fiegsl 
ELSE 

Mord_1 nc  < I )«S 
Cerry  f  1  eg*  1 
END  IF  ” 

ELSE 

IF  Corry  ftofl*!  THEN 

IF  Uord_lnc  < I JeR  THEN 
Hord”lnc  < I )fl 
Done-f l09«l 
ELSE 
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Word  tnc<I>*9 

394*  Carry  flag* I 

3993  INS  IF  " 

3993  f NO  IF 

3973  END  IF 

3933  1*1*1  -  • 

3933  IF  I*N_R0u4r  THEN 
3<33  Sort*  Flag*! 

3(13  EN0  IF-  ~ 

3(33  (NO  WHILE 
3(33  SUKHD 

3(43  ! ***•*«•***♦***#***»****•****#**#•**#*#*•*#*•**#•«♦##*#**•****' 


3(93 

3((3 

3(73 

3(33 

3(93 

3733 

3713 

3733 

3733 

3743 

3793 

37(3 

3773 

3733 

3793 

3(33 

3313 

3(33 

3333 

3343 

3393 

33(3 

3(73 

3(33 

3393 

3993 

3919 

3939 

3939 


I  •••••*•••••••••••••••••••  SUBROUTINE  REFLECT  *************************** 

>•  THIS  SUBROUTINE  TRANSPOSES  THE  POSITION  OF  THE  SITS  IN  THE  INPUT  • 
<•  VECTOR  TO  OPPOSITE  POSITIONS  WITH  RESPECT  TO  THE  CEH1R0I0  OF  THE  • 
I*  UNARY  HORD  .  • 


SUO  Rtf  I  act  IMord^l n< •)  ,  N_pov*r ,  Word  out(*>> 

FOR  1*3  TO  H_po-«r- l 
Hard  out < I >*Uord  I n < M  poutr- I - 1 ) 

HENT  T 
3U3ENB 

itittitititttttfttttttttvtttttttittitittttttttttttifftttiitttttttttitttt 

I »****»***•»••****•**•*»*  SUBROUTINE  BASE  TEH  ••»»»•♦•••••»••««*»»*♦»••* 

I *••*•♦4 **************************************************************** 

Id  THIS  SUBROUTINE  CONVERTS  THE  BEPOSITEB  BINARY  VECTOR  TO  A  BASE  * 

I*  TEN  INTEGER. THE  BASE  TEH  HUNBER  IS  RETURNED  IN  THE  VARIABLE  'X  out'.* 

< **•**••**•*•»*• *************  ft*************** ************************** 

SUB  lu» J  tn<M«rd_t  n<* ) , N_po»tf  t  F_#vt  > 

X  out *3  “ 

F5R  1*3  TO  N_j»ouer-l 
X  out *X  Out «Hord  tn<I)*2-I 
NEXT  I 
SUBEND 

I  . . * . . . it . ******** . a* 

I***********************  SUBROUTINE  BUTTERFLY  it************************ 


•  THIS  SUBROUTINE  GENERATES  THE  NECESSARY  INDICES  DEFINING  THE  • 

•  BUTTERFLIES  MHICH  PERFORN  THE  IN-PLACE  CONPUTATIONS  OF  A  FAST  • 

•  FOURIER  TRANSFORH  .  • 


3999 

39(9 

3973 

3993 

3993 

4999 

4319 

4939 

4939 

4949 

4999 

49(9 

4979 

49(9 

4999 


SUB  But  tor  1 1  y  <  N_ro  « «t ,  V_po  t  fit ,  St  ago  tP(*),0<*>> 


••*•*•••••*•••  DEFINITION  OF  LOCAL  VARIABLES 


H_po<nt 
V^polnt 

St  ag* 

(ran 

H^Put  torf  1  y 
H^croat 
U?_cne*t 
Low  treat 

P<*7 

9<*> 


I  HUNBER  OF  POINTS  IN  FOURIER  TRANSFORN  . 


LOC  BASE  THO  OF  HUNBER  OF  TRANSFORN  POINTS. 
STAGS  OF  TRANSFORN  VECTOR  PROCESSING  . 

HIDTH  OF  RON  SPAN  OF  BUTTERFLY  . 

HUNBER  OF  BUTTERFLIES  IN  TRANSFORN  STAGE. 
HUNBER  OF  BUTTERFLIES  FOUND  . 

POSITION  OF  UPPER  BUTTERFLY  BRANCH. 
POSITION  OF  LONER  BUTTERFLY  BRANCH  . 

'P'  INDEX  OF  BUTTERFLY  'N  Croat'  . 

'O'  IHBEX  OF  BUTTERFLY  'N_eroat'  . 


4 1  S3  Sp*n*2-Stag* 

41 19  1 •••♦•••••••••••••••«••*•♦••• 

4129  I*  DEPINE  INITIAL  BUTTERFLY  • 
4133  I**************************** 


4149  Up_croat*9 
4199  Lew  croat*SRan 
41(9  H  Croat*- I 

4179  I?  Span > 1  THEN  I  TEST  OUT  CASE  OF  STAGE  ZERO 

41(9  HHILE  N_crott  <N_po  I  nl  /'2-Span 
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4939  M  out -2~<V  tn«l>  I  INCRint  RECORD  LENGTH  TO  NEXT  HIGH- 

4999  Itlotn  BuaayCN  out-l>  I  SIT  POWER  OP  TMO  . 

41?*  PO#  1-H  tA  TO*N  out-1 

4UI  DuaayT I  >-9  “  I  ZERO  PILL  REHAINBER  OP  DATA  ACCORD  . 

4111  NEXT  I 
4*99  SODCND 

4*11  |  ***********************************************4********************** 
4121  (•••••••••••••••••••••••  SU1R0UT IHE  RAKE  ILOPEI 

4121  I 

4941  I*  THtl  IUIROUT IHE  CEMERATEI  THE  IPATIAL  DERIVATIVE  VECTOR!  • 

4931  I*  PROH  THE  ANGULAR  PORRATTED  HAVE  COHPUTER  DATA  PILE!  .  4 

4*99  <4444444444444444444444444444444444444444444444444444444444444444444444 

4979  SUI  Ha**  1 1  op*K  PM <4> , Thtt  ac  * ) ,  H  data,Dl  dx<*>,Ds  dy<*>> 

4*1#  POP  !•#  TO  H_data-I 

4999  Di  dx<  I  >--TANCPM ( I >  )*C0$<  Th*ta< I  >  > 

3999  Os~dy <  I  >— TANCPM  < I  ) )*SIH< Thtt •<  I  > > 

3919  NEXT  T 
3929  lUICND 

3929  14444444444)4444444444444444444444444444444444444444444444444044444444  4 

9949  ( 4 #4 4444 44#4444t4444444  9UDR0UT IHE  BEARING  PIX  444444444444444444444444 
3939  I  4*444444444444444444 444444444 444 444 44444 4^4444 444444444444444444444444 

3999  14  THII  IUBROUTIHE  ADJUSTS  ALL  PREOUEHCY  BEARING  FIGURES  SUCH  t 

3979  14  THAT  THEY  ALL  EXIST  !H  QUADRANTS  II  AND  III  ,  THAT  IS  HEADING  FOR  4 
3999  14  SHORE  .  * 

3999  14444444444444444444444444444444444444444444*44444444444444444444444444 

3199  SUB  Staring  f t x(B*ar I ng< • >  ,N  dat*,Pt*> 

3119  FOR  1«9  TO  H  dot  4-1 

3129  IF  B*artng<IXPt*/2  THEN 

3139  Boar  tng< I >«l*ar tng< I )-Pl  t 

3149  END  IP 

3189  NEXT  I 
31 <9  SUBEND 

3179  1444*444444444444444444444444444  444444  4444444  444444  4  4444*44444444444444 

3199  I *4*4444 4444444444444404  SUBROUTINE  WAVELENGTH  ************************ 
3199  I  4*  4444444444444444  t*****4t*t***4*t  * 4***4 *• ft*** ****** t**tt*****4*t  •*•* 

3299  I*  THIS  SUBROUTINE  CORPUTES  THE  WAVELENGTH  OP  EACH  SPECIFIC  * 

3219  I*  PREOUEHCY  CORPONENT  IN  THE  SPECTRUH  .  • 

3229  I ********************************************************************** 
3229  SUI  Wav*1*ngth<|*artng<*>,N  dai4,Pi*,U4u*1*ngth<4) ) 

3249  COR  /Hau*l*ngth/  29  aag<4997> , Zdx  aag<499<) , 2dy  aag<499<> 

3239  FOR  1-9  TO  N  data-l~ 

3299  IF  2dy_aagC I > >2dx_aag( I >  THEN 

3279  Hau*1*ngth<I>-2*Plt*AIS<SIN(B*artng<I>>>*29  aagC|>/Zdy  aagCI) 

3299  ELSE 

3299  Wavtl tngthC I >-2*Pt**ABS<C0S<B*ar  1 ng< I > > >*29  aagCl>/Zdx  aag(I> 

3399  END  IP  ~ 

3319  NEXT  I 
3329  SUIEND 

3339  I********************************************************************** 
3349  I***********************  SUBROUTINE  VELOCITIES  *••*•********•#****♦•*•• 
3339  > ********************************************************************** 
3399  I*  THIS  SUBROUTINE  CORPUTES  THE  WAVE  FRONT  VELOCITIES  * 

3379  I*  FOR  EACH  FREQUENCY  CORPONENT  OP  THE  SEA  SURFACE  AODEL  .  • 

3399  I  4 **44 4 444444444444444444*444**4444*44**44444*4 444*44444 4444444 *44 4 *44* 

3399  SUI  V*toc 1 tyCPr*gu*ncy<*> ,Wau*1 tngthC*) (H  dat a, v*1 oc t t y<*> > 

3499  FOR  1-9  TO  H  dal  a- 1 

3419  V*lo< ltyCT>-H*v*l*ngthCI >*Fr*qu*ncyC I > 

3429  NEXT  I 
3439  SUIEND 

3449  I *••»****••*••»•*•.•***••**•••••«*••*••*«•*•*•*••••••»••••••*•••*•**»**• 

3439  I************************  SUBROUTINE  ARPLITUDE  *****)•****************** 
3499  I  >444»*4«4444444444*4.*»44444444*444. •••••••*. 44. ••••••*•*•••)•••••••*•• 

3479  I*  THIS  SUBROUTINE  CORPUTES  THE  ARPLITUDE  OP  THE  FOURIER  SERIES  * 

3499  >*  COEFFICIENTS  FROR  THE  Z  VECTOR  SPECTRUH  .  * 

3499  ! •*•*•••**•••*•*•••*« •»•**•••••••••*••••*•••••••••••••••«*•••••••••••••• 

3399  SUB  Aapl  t  tud*C29_a*gCt  > ,  N_d*t  a,  N_pol  nt ,  Aapll  tud«< »  >  > 
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3310  r or  !-•  to  n.<»u-  i 

9320  Aapt  ttvidaTlWO  »otnv 

9920  NEXT  1 
3340  SUBCnB 


333*  laaaaaaaaaaaaaaaaaaaaaaaaiaaaaaaaaaaaaaaaaiaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
3330  I aaaaaaaaaaaaaaaaaaaaaaa  SUBROUTINE  MtlTITllK  aaaaaaaaaaaaaaaaaaaaaaaaa 

3370  I  <••••<•<»<•*••<•<•<•••••• . aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

3300  I*  .  THIS  SUBROUTINE  ACCEPTS  THREE  BATH  VECTORS  Or  EQUAL  LENGTH  ANB  • 


9990  la  MtITft  THEN  TO  A  BISK  STORAGE  FILE  UNPER  THE  F1LENANS  SPECIFICS  • 
9300  I*  BV  THE  USER  .  • 

SCI*  liitiaiiiaaiaiaiiiaaiaiiiiiiiiiiiiiiiaaiiaaaiaiaaaaaaiaiiaaaiaiaiiaaiiii 
9320  BUB  Mrttaf t  I a3< N*aa» ,  Job* , Nad I u«* , N  dOtd.Xt  <*>,X2<*>  ,X3<*>,  X4<a>,X9<  •> ,  X3 

<a>t 

9330  BtH  Fill  n«aa*C40] 


3340  IMIimmltlMlmMimilMIIIIMIIIIMHMIMMMIIIMIK 
3330  iiaiiiiiiiiitiiiaiii  BEr IHITIOH  Of  VARIABLES  aniiiiitiiiiii. 

3370  I  Null  I  NANS  or  0SR1AL  FILE  CHEAT! B  TO  RECEIVE  BATA 

3300  •  Job*  I  BEOCRIFTIVE  JOB  LABEL  OF  CONTAIHEB  BATA 

3390  l  Nadlua*  I  ABBREBO  OF  HASB  STORAGE  NEBIUH 

9700  l  M  data  '  nunBER  OF  BATA  ELEHEHTB  IN  EACH  VECTOR  . 

3710  laaaiiiaiiiiiiitaiaiaiaiaaaiiiaiiiiiiiiiiiiiaaiiiaiiaiiiiiii 
3720  li^aaiiaiiiaiaiaaaaiiiaaaaaaaiiaaa 


9720  •*  CREATE  BATA  FILE  FOR  STORAGE  *• 

3740  I ••*••••••<«••*•*•*•*•*••••••#•••• 

3790  Ft  I*  six*«IHTCM  data/9) 

9730  if  n*diuo*>*i ihTernal*  theh 
3770  FI  la  na»a*<Haaa*LNadtua* 

3700  ELSE  ~ 

9790  Ft  la  naaa*<Hadluu*lHaaa* 

9000  (HO  IF  “ 

3010  CREATE  BOAT  Ft  la  nauaS.Ftl*  alia 

3020  I  . . on . . . . 

3030  I  ASSIGN  BUFFER  I/'O  PATH  TO  FILE  * 

3040  • aaaaaaaaaaaaiaaaaaaaaaaaaaaaaaaaa 
9030  ASSIGN  OF  at  it  I  TO  Ft  la  naua* 

9030  I aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
3070  laa  CORRECTLY  SIZE  BATA  VECTOR  «< 

9000  . . . 

3090  RCBIH  HUM  data-l>,x2(N  data>l>,X2(N  data-1) 

9900  REBIA  X4 < N~dat a- 1 ) , X3 < N~d at a* I > , X3 ( H~dat a- 1 > 

3910  I  •MltMIMIIItlMIIIIIIMItlimi  - 
3920  I aaaaaaa  STORE  JOB  LABEL  aaaaaaaaa 
3930  I aaaaaaiaaaaaaaasaaaiaaaaaaaaaaaaa 
9940  OUTPUT  OPath  l|Job* 

3930  . . . 

3930  laaas  STORE  HUHBER  OF  ELEMENTS  **• 

3970  I aaaaaaaaaaaaaasa a* aaaaaaa aaaaaaa# 

3900  OUTPUT  OPath  t|N  data 

9990  laaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaai 

3000  I aaaaaaa  STORE  BATA  ARRAY  aaaaaaaa 

3010  I aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

3020  OUTPUT  OPath  1 1 XI <<> , X2< a > , X3<a> , X4< a > , X9< a > , X3<* ) 

3030  I aaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaa 

3040  laaaaa  CLOSE  F1LC  ANB  BUFFER  aaaaa 

3090  I aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

3030  ASSIGN  OPath  1  TO  a 

3070  SUBEHD 


3000  . . . 

3090  I  aaaaaaaaa aaaaaaa aaaaaaa  SUBROUTINE  REABFILE3  aaaaaaaaaaaaaaaaaaaaaaaaaa 
3100  l  aaaaaaaaaaaaaaaaaaaaaaaaaaaaa a aaaaa aaaaaaaa laaaaaaaaaaaaaaaaaaaaaaaaaaa 
3110  1  a  THIS  SUBROUTINE  RCABS  THREE  BATA  VECTORS  FROH  BISK  STORAGE  OF  a 


3120  la  EQUAL  LENGTH  ANB  BOOTS  THEN  INTO  THE  BUNNY  VECTORS  X< a ) , Y< a ) , Z<< ) .  a 
3130  laaaaaaaaaataaaaaaaaaaaaaaaaaaaaaaaaasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
3140  SUB  Raadf  I I  #3< Naaa* , Job# , Had l ua* , N  dat «, X< a > , y< a> , Z< a > > 

3130  BIN  Ft  la  na>a*I40) 
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<i<*  i 

<17*  <•••••••••••••••••••  DERIN1TI0H  OR  VARIABLES  ••••••••••••••••••• 

<1*0  !•••••••••••«••••••••••••••••••••••••••••••••••••••••••••••••••• 

<190  I  Hull  I  NAME  or  SERIAL  rtLI  CREATED  TO  RECEIVE  DATA 

<2*0  I  Job*  I  BESCRIRT1VE  JOB  LABEL  Or  CONTAINED  BATA 

<21*  I  MadtuaB  l-ASBRBSS  Or  AABB  STORAGE  MEDIUM 

«22B  1  K  data  I  NUABtR  OR  BATA  CLIAfHTS  IN  EACH  VECTOR  . 

E23B  I 

C24B  l •»••••••••••••••••••••••••••••••• 


C29B  I  AEEICN  BUrrER  I/O  RATH  TO  RILE  • 

Ull  I  ••••••••••••••••••••••••••••••••• 

*370  If  M4dtua»4*t INTERNAL*  THEN 
<210  Flit  naaafaNNaaSNMNdluaS 
<290  ELSE 

Fill  naaafaMadl uaflNaaaS 
Old  ENB  1R 

021  AttiCN  OR  Nth  I  TO  Flit  naaaS 
<130  ! 

<340  !••••*••  REND  JOB  LABEL  ••••••••• 

<330  ■ ••••••••••••••••••••••••••••••••• 

<3<0  ENTER  OR Nth  l|Job* 

<370  I  MHHttHtMMMtMMttMMtMM 
<300  )•••  ENTER  NUMBER  Or  ELEMENT*  •••• 

<300  I ••••••••••••••••••••••••••••••••• 

<400  ENTER  OR  Nth  t|N  dhtN 

<410  I •••••••••••••••••••••••*•••*••••• 

<420  CORRECTLY  012E  DATA  VECTOR  ••• 

<430  I •••••••••••••••••••••••••••••••*• 

<440  REBIM  X<N  dNt  N“  1  >  ,  Y  <  M  dhth-l>,Z<N  dNtN-l> 

<480  I  •••••••444N4«44444N444N4N44444444 

<400  IMtMtt  READ  DATA  ARRAY  ••»••••• 

<470  I  •••N44444444444NNN44N444N44N44444 
<400  ENTER  ORat h_| | X< • > , V< •> , 2< •> 

<490  I ••••••••••••••••••••••••••••••••• 

<300  !♦••••  CLOSE  RILE  AND  BURRER  ••••• 

<310 

<320  ASSIGN  OR Nth  1  TO  • 

<330  SUBEND 
<340  I 

<380  IMttmttMMMtMtMM  SUBROUTINE  rRINT  OUTS  •••••••••••••••••••••••• 

<3<0  I 

<370  i»  THIS  SUBROUTINE  RRINT*  OUT  A  SIX  VARIABLE  DATA  TABLE  ON  THE  • 

<sso  i*  line  rr Inter  .  • 

<39S  I 

MO*  SUB  Rrtnt  Out«Xl  <•>, X2<») , X3<»> , X4<») ,X3<»> ,X<t*>,N  print  > 

«l*  RR  INTER  li  < 

M2*  R 1 4*4#ATN<  1  > 

M30  MINT  CHR*<12> 

M40  MINT 
MS*  MIHT 

*«*  MINT  *••*••••••••••••••••••••••«•••••••••••••••••••••••••••••••••••••••• 

M70  MINT  *•»•••••••••••••••••••••  SEA  SURRACE  MODELING  RARAMETERS  •••••••••• 

MS*  RRINT  *•••••••»•••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

«9*  RRINT 
<7*0  RRINT 

<710  RRINT  *Er«qutncy  Aaplttudt  RhN44  Bearing  Nave  length  Velotl 

ty* 

<720  RRINT 

<73*  ROB  !•*  TO  N_prlnt-1 

<74*  RRINT  USING  RoraNt  1 1 X I < I ) , X2< I > , X3< 1 >• l **/RI 4, X4< I )• ISOxR 1 4 , X3< I > , XC< 
I) 

<73*  RorNNt  It  IMACE  IX, DD. DDD, 3X, D. DDE, 3X , SDOD.  D,  3X,  SDDD.  D,  3X, D. DDE, 3X, D. DO 
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<f<9 

«r?a 

<F  99 
srs# 
(HI 
<9|9 
<•2* 
<•}• 
(HI 
(HI 
<9<9 
(#7* 
(III 
(Ml 
(III 
«*ia 
(121 
*»3I 
(HI 
<999 


NEXT  1 

MINT  CH9K  I  2 > 

FAINTER  IS  1 
SUSKND 

!•••••••••••••••>•>•••••••••••••••••••••••••••• 

i turnout i he  video  noise 


•  . THIS  SUSKOUTINE  GENERATES  CENU1NE  VIDEO  CANE  SOUND  EFFECTS  FOR  ♦ 

•  NANY  CYCLES  AS  YOU  SPECIFY  .  * 


8US  Vld«o_9»*f <H  cy« las > 

IF  H  eye !•»< I  TH?h  N  eye  I »»■ l 
FOR  K«9  TO  N  eye  I  «»-T 
FOR  l«9  TO- I 

FOR  J»9  TO  19 

DEEP  J»199, 1/199 
NEXT  J 
NEXT  I 
NEXT  K 
SUIEND 


8 


! 


tV 


K 
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31  Hug  1387  28i 44 i 4 1 


1888 

1818 

1828 

1838 

1848 

1888 


ROCRAA  MAKE  HAVES 


THIS  PRpGRAH  READS  IN  A  SEA  SURFACE  NODEL  FROM  THE  C1VEH  BATA 
FILE  AECOHSTRUCTS  IT  AHB  PLOTS  IT  OH  THE  CRT  . 


1888  COH  /'Lap* I »/  XI  ab*l *( 48), Yt ab* 18(48) , JobttSS) 

1878  con  /Hav**/  Fr*q<312 ) ,  Aap<312>  ,Phaa*<3l2> ,  »«ar  <3l2)  ,Laada<312> ,  8p**d<3l2> 

1888  COn  /Color*/'  Bat  a_co  I  or ,  Ax  1  *_<ol  or,  Lab*  l_co1  or 

1838  COn  /An»w*r*/  X  ord(288>,Y  ord<28S>,2  coord < 290, 288 > 

1188  Bin  Ft  I*  1 n*C 487, F 1 1 •  out »f 48 1 
1118  RAB 

1 128  I  ••••♦••«••»••♦»•«»•«•*«•••••#•••*»♦•*•*»**•••••«•••••••• 

1138  I************  DEFINITIONS  OF  PROCRAn  VARIABLES  •»•••••••• 

1148  I******************************************************** 


1138  Pl**4*ATN< 1 ) 

1188  1  Aap<*>  < 
1178  •  Pha*e<«>  • 
1188  1  B*ar<*>  t 
1138  ;  Laada<*>  t 
1288  •  Sp**d(*>  t 
1218  I  X_ord< • >  • 
1228  1  Y~ord<*) 

1238  I  N~uau*»  < 
1248  Cro»»*a*N-  1 
1238  R«d«2  I 
1288  Cr**n*4  i 
1278  Y* 1 1 owa3  I 
1288  Aquaa3  t 
1238  Blu*-8  t 
1388  Hhl t 1  t 
1318  Bat *_ccl or'Aqua  t 


1328  Lab*1_<o1o>*«Gr**n  t 
1338  F*l»  ~o1«r»Nhll«  ! 


HAVE  nor’L  PEAK  AnPLITUBE  . 

HAVE  NOBCc  TEAPORAL  PHASE  . 

NAVE  NOBEL  HAVE  DIRECT  ION  . 

HAVE  NOBEL  CONPOHENT  UAVELENCTH  . 
HAVE  NOBEL  CONPOHENT  VELOCITY  . 

X  SPATIAL  COORDINATE  OF  SEA  SURFACE. 
Y  SPATIAL  COORDINATE  OF  SEA  SURFACE. 
NIMIER  OF  HAVE  COHPOHEHTS  IN  NOBEL. 
DISABLE  Y  ORDINATE  CROSS  CONTOURS. 
DEFINE  RED  PEN  COLOR. 

DEFINE  GREEN  PEN  COLOR. 

DEFINE  VELLOU  PEN  COLOR. 

DEFINE  AOUA  PEN  COLOR  . 

DEFINE  BlUE  PEN  COLOR. 

DEFINE  HHITC  PEN  COLOR. 

DEFINE  DATA  SURFACE  COLOR. 

DEFINE  LABEL  COLOR. 

DEFINE  AX 1 8  COLOR. 


1348  N»dtu*_l,.*«*8A8IC/DATA  FILE/* 

1338  NtCM«*~OMC*»*BASIC/HAvf  FILE/* 

.389  (*•.>**«*■*•••*»•*••**•«•♦•••♦••••*••••••••♦••••♦*•••*•*•* 

:?7e  print  cm»*<i2> 

138*  incur  *£ot*r  SPATIAL  EXTENT  «f  Simulation  <F**t > . . . *  ,L_»ax 
133C  X  **x»L  *ax 


1488  Y  a*x*c  *ax 

1418  uTiMllI'i-  Cast  *iVAL«<L  aax  >  1  *  F**f 
l«2d  Y!4fc«l***->  North  'iVALSCL  aax>k*  F**f 

1438  input  *Ent«r  DIFFERENTIAL  SPATIAL  STEP  SIZE  (F**t >...*,  D*  1 1  a  x 
1448  INPUT  *Ent«r  TEAPORAL  FREQUENCY  LINIT  <H*rtz>  .  ..",F_aax 
1438  B*lta_yaB*lta_x 
1488  N  polnt*lNT<L  aax/Dtlta  x) 

1478  I************************************ 

1488  !•  SEC  I  DC  ON  CROSS  HATCHING  SURFACE  » 

1438  1  *•«'#♦*•**•#**•••*♦***#♦••♦*#••#•*•** 


1388  IF  M_potnt<48  THEN 
1318  Cro*»»«*Y* 

1328  ELSE 

1338  Cro»s9**N’ 

1348  END  IF 

1338  I  fa***************************************************************** 

1388  I *••••»••  SIZE  DOUN  ORDINATE  VECTORS  AND  COORDINATE  ARRAYS  •*••««••• 

1378  I  a****************************************************************** 

1388  REDIn  X  ord<N  pol  nt  - 1 ) ,  Y_ord<N_pol  nl  - 1  >  ,  2_coord<N  po!  nt  •  1 ,  N_pol  nt  - 1  > 

1338  INPUT  *?nt«r  f ILENAHE  of  S«a  Surf  act  Nodal  (Oalt  f«t*ntl on) . . • ■ ,F 1 1*8 
1888  Fl  l«_tn»»Pn«»k"_NOD* 

1818  CALL  R**df  11  *8<F  I  1  •_(  n*,  Jobt , M*d 1 ua_<  n8  ,  N_uau«,  Fr»p<  ♦  ) ,  flap  <  •  >,Ph  *»•<*),!» 
ar  <  •) ,  LaadaO) ,  8p*«d<*> )  ~ 

1828  * *••»••**•»•••••«**•*••••»••*•*•*•»•••• 
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1<3#  I*  CONFUTE  TRUNCATES  COMPONENT  LENGTH  • 

1141  I 

143#  N  fr«q«IHT<F  •  Ax-'Fr.q' 1  >  > 

t««a  . . . . . . 

IC7R  DETERMINE  SIMULATION  OFFSET  •  ••• 

tC«t 

1(11  Max  vav»»NAX< Aop<*>> 

I 70S  FOR~I»S  TO  N_pdlnt~I 
171#  X  ordT  I  >•  I *Dt 1 4  A  x 
172#  “  SEEF 

I 73#  SISF  '•••  OFERATION  *| INT< 18#»IxN  point >|-  FERCENT  COMPLETE  II 

174#  FOR  Jo#  TO  N  point* l 
175#  Y_ord< J>»7»D«lt a_y 

1748  CALL  MAlio_«Av*(x2ord<  I )  ■  Y_ord<  J)  ,  #,  N_fr#q,  Flo,  2_vavt> 

177#  2  coord< I , J)*2  vavo  ”  "  ~ 

17«#  N£XT_J 
17»#  NEXT  1 
1###  Tl I t-3# 

i#i#  i •••••«*••*••••••»••*••••••*»•••»•••••••••••••••••••••••• 

1#2#  lAAAAAAAAAA  OFFER  USER  VIEUINC  OF  SEA  SURFACE  *»***••»»•• 

1#3# 

1#4#  MHILE  Tl lt(># 

1#S#  Input  *Ent«r  TILT  ANGLE  for  3-D  Plot  < B##poaa> . . . tEnt or  #  to  E8CAFE. )*, 
Tl  It 

184#  IF  Til t<>#  TNEN 

187#  CALL  Plot  3d<Tt lt«Pl4x34#,N  ool nt , Cro»»* > 

189#  END  IF 
1«9#  END  HHILE 
1  998  . . . 

191#  I OFFER  DISK  STORAGE  OPTION  •••••*••»• 

192#  I 

193#  INPUT  -STORE  S«A  Surfac*  on  DISK  ?  <VxN>...»,A» 

1949  IF  A»«*Y-  THEN 

193#  FI  l*_outS«'S£A-LFI  1  «*C3, 7HVALS<F„»A*  >4*  .  *LVAL*<L_*Ax> 

1948  CALL~Stor«  array<Ftl«  out t, Mod  I uo  out *,N,potnt >  — 

1979  END  IF  ~  " 

198#  GRAPHICS  OFF 
199#  CALL  VldAO  gaaoU) 


2990  DISP  ■«t»4*o#«4»o». •«•••••  OPERATION  COMPLETE  III  ••♦*••♦*••*••••*•••#*# 
2# 10  END 

2#29  . •  •••  >4  *****  •  *****  ******* 

2039  '••••••••#»4too««*»o»4*4  SUSROUTINE  MAKE  NAVE  •••••••• 

2848  I *• •• • AA444#  4  444044#A44444 44 •••••••♦••4a7aA#*0444#AA •••••••#•• ••###••#4  4 

2959  !•  THIS  SUSROUTINE  GENERATES  A  SINCIE  VERTICAL  POINT  ON  A  • 


2049  I#  RECONSTRUCTED  SEA  8URFACE  FOR  THE  GIVEN  '%■  AND  'V'  COORDINATE  AND  • 
2070  lo  A  POINT  IN  TIME  'T'  .  • 

2090  I  444444444444444444444444444444  tMttHMIlMHItMttttftMHtlMMMtMl 

2090  SUD  Makf  «av*<X,Y,T,N  vAvt«,Pl4,2  mavs> 

2109  CON  XU4V44'  Fr«A<512>7Aap(51 2> ,  Phbtt<31 2> , Star (512> , Laada<3 1 2 > , 8p4«d< 5 1 2 ) 

2110  RAD 

2129  2  wav«o# 

2130  FOR  1-9  TO  N^avit-  I 

2140  Do t  jtrodoxoCOS < or < I) ) *t *  3 1 h  <  Sc ar  < I >  > 

2150  2  wau«o2  wavo*Aap(I >oC0t<2*Pt«o<Dot _ppod-Sp#4d< 1 >4T>xLaadA< 1 >-Pha»8< I> > 

214#  NEK?  I 
2178  SUBEND 


218#  I 444444444444444444444444-4444444444444444444444444444444444444444444444 

219#  I440004000. ••••••••«<•••«  SUSROUTINE  PLOT  3D 

2200  . . Mill . . 


2210  I*  THIS  SUBROUTINE  IS  RESPONSIBLE  FOR  PLOTTING  THE  DATA  SURFACE  • 

2229  '•  GENERATED  BY  THE  MAIN  PROCRAn  MAIN  FRAME  .  IT  PERMITS  FOR  THE  ♦ 

2739  !•  OPT I0N8  OF  PLATE  812E  ,  AXIS  TILT  ANGLE  AXIS  COLOR  AND  SURFACE  • 

2249  <•  COLOR  .  • 

2259  I . . . . . . . . 

2249  SUB  Plot  3d<Th4t  ax  ,Ngrt dtCro«»F> 

2278  CON  xtabtUx  X I  at>«  I  *t  49 1 ,  Y I  tb«  1  *  1491 ,  Jot*  1 99  3 
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2300  con  'Color*''  Solo  col  or ,  flx  1  »_eol or , Lob* l_cot  or 
22*0  COn  'Aniupr*'  X  ord< 20*> , Y_ord<200> ,  2_coord< 2*0, 200) 

2300  con  ''Rlotllnks  Xor 1 gl n, YorTgl n,  Loft ,  R t ght t Boi too, Top 
2310  con  'Scolor^  X  aln,X  oox,Y  oln,Y  oox,2  oox 
2320  Bin  How*  atx«(001 
2330  R<0«4*nTN< 1> 

2340  RAS 

2390  I  ••*•*••• 04040400004P 

2300  !•#•*••#•  eSTASLlSM  BEFAULT  PLOTTING  RARAnETERS  ••••••• 

2370  . . 

2300  LoftoO 

230A  Right- 125 

2400  SottoooO 

2410  Top«I29 

2420  8lopo»TAN<Thot4x> 

2430  Tor igln«<Rlghi-Ltft XSIopt 

2440  Xorlgtn*(R<ghi*LoRl >^2 

2490  Sol totoxto<Top“BottoP>'2S 

2400  6  lhoto*R<o/30 

2470  Off »ot«9 

2400  X  »ln-NIN<X  ordCO) 

24*0  x”»4*«nAX < X~or  d <  »  > ) 

2900  Y”pln«nlN<Y"ord<»>> 

2910  Y~«*x«AAX< Y~ord<*  >  > 

2920  Ro*k^o*x«nAX<2_coord<4>> 

2930  Trough_»*x«nlN72_eoord<4> I 
2940  Nov*  «*x.<R»ok_*ix-Trough_B*x  1 

2990  Uiv«**4x|.anixl*u«  Ttik  to  Trough  Oopth  t*  *iVAL*< IMT< l0*Mov#_oox >/!0>i 
R441* 

2900  2_off«3.Mov#_»*j< 

2970  2”o*x«94M*v#~*%x 
2900  T7ck«2  ■*.-'50 

2990  I  . . . . . . 

2000  (•••••••••••••  INITIALIZE  PLOTTER  »••••••••••« 

2010  I . . . 

2020  C1NIT  1.29 

2030  VIEMPOOnnotli*1  flni ,  Bolt ob,  Top 

2040  NINDOw Loft , RTgnt , Sol l oa, Top 

2090  CRARHICS  ON 

2000  REN  Froat  color 

2070  FAAnE 

2000  CSI2C  2. 9,. 79 

20*0  PENUR 

2700  . . . 

2710  ORRW  AXES  ♦•«♦•♦*»♦•#* 

2720  . . . . 

2730  REN  Axt»_color 

2740  HOVE  XorTgl A,BoltOA 

2790  SRAM  Right t Xor I gl n*$ I opo 

2700  BRAN  Xortgt r>, Yortgln 

2770  SRAM  Lofi, Yor I gl n-Xor 1 gl n»81 op* 

2700  SRAU  Xor I g I n , Sot t oo 
27*0  RCNUR 

2000  NOVI  Xor 1 g I n, Yor 1 g I n 
2010  REN  Ax  I  *  color 
2020  SRAM  Xor I g<  n, Top 
2030  REMUR 
2040  REN  0 

2090  I •••••••• 

2SC0  I .............  LABEL  ORBINATE  AXE*  •••»••••#•»»•»•» 

2*70 

2000  Xt«xt*Xor lg<ri''2.B«ltoi*xt 
20*0  Vt«xt bBoi loP.Yor 1 glo'4 

2*00  CALL  Lobol lt<Xt*xt,Yt*xi,-Th*t*x*8_th*l*,L*6*!_col9r,Xl4t*l»> 

2*10  Yt oxt *Bot t ob*B« I t ot »xt 
2*20  Xtoxt *Xor 1 gl n*B* I l ol oxt 
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3938  CULL  Label  1 t  <Xt «xt ,  YiOxt ,  Th.tex-D  ir.iA.LaBtl  col  or ,  Y 1  abtl  * ) 
2948  I 44444444444444444444444444444444^44444444444744444444444 


29S8  1 4 4 #44 4 4 44 4 #44 4 4 44 #  PLOT  SURFRCE  DATA  4 
2948  14444444444444444.444444444444444444044' 
2978  144444444444444444404444444444444444044 

2988  1 444444 ##  PLOT  Y- ORDINATE  CONTOUR  LINES 

2998  14444444444 44 4444444 44 4 44444 44444 44 4444' 


3888  PEHUP  ■ 

3818  FOR  I >8  TO  Ngrtd-l 
3828  PEN  044 A  color 

3838  FOR  J»8  To  Ngrtd-l 

3848  CRLL  Scalor<x  orqCt>,Y  ord<J>,2  eoord<l,J>*Z  OFF,  81  opt, Xp 1 04 ,  Ypl  04 ) 

38S8  PLOT  Xplot,Yplo« 

3888  NEXT  ] 

3878  PEHUP 
3888  NEXT  ! 

3898  PENUP 


3188  I  44444444444  444444444  44  4  444444  444  4444444444  44444 

3118  14444444  PLOT  X  0R91NRTE  CONTOUR  LINES  444444444 

3128  144444444444444444444444444444444444444444444444 

3138  IF  CrOA4*«*Y-  THEN 

3148  FOR  J«8  TO  Ngrld-1 

3158  PEN  Opt 4  color 

3188  FOR  I«8  TO  Ngrtd-l 

3178  CRLL  SealorCX  ord<I),Y  ord<3>,2  ceordCl.JW  oFF ,  81  op*  ,Xpl  ol ,  Ypl  o 

t )  "  ”  ~  ~ 

3188  PLOT  Xplot.Yplot 

3198  NEXT  I 

3288  PENUP 

3218  NEXT  J 
3228  END  IF 

3238  144444444444444444444444444444444444044444444 
3248  14444444  ENTITLE  PLOT  OF  SEA  SURFACE  44444444 
3258  1 44444444444444444444444444444444444444444444 

3288  CSIZE  2.3..7S 


3278  CALL  Lmbol  ( t <LoFt .5, Top-5, 8, LAbt 1  color, Job!) 

3288  CALL  Lab# 1 1  4 <L«Ft *38, Top-8, 8, 2 , Uavo  oaxt> 

3298  INPUT  "Nil  RETURN  lo  CONTINUE  .  . . . 'TaS 
3388  CRAPHIC8  OFF 
3318  8UIEND 
3328  1 . . 

3338  1444444444444444444444444  SUIROUTtNE  SCALER  4444444444444444444444444444 
3348  1444444444444444444444444444444  44  4444444444444444444444444444444  44444444 
3358  14  THIS  SU8R0UTINE  IS  RESPONSIBLE  FOR  CONVERTING  THE  THREE  DIMENSIONAL  4 
3368  14  DATA  POINTS  'X'  ,  'Y'  AND  'Z'  INTO  THE  TMO  DINEN8I0NAL  DATA  POINTS  4 
3378  14  'Xplot '  AND  'Ypl o* ' .  4 

3388  144444444444444444444.4  4444444444444444444444444444444444444444444444444 

3398  BUD  Scal.rCX, Y,Z, Slops, Xptoc, Yplot > 

3488  CON  sPlotltnk/  Xor  1  gl  n,  Yor  1  gin,  LoFc  ,  Rt  ght ,  Sot  loa,  Top 
3418  CON  •'ScAlor/'  X_oln, X_ bax, Y  olrt,Y  pax,Z  oax 

3428  Xp I ot«Xor t  gt  r»*7l  -<X-X  atn)~<X  pAx-X_atn>*<Y-Y  at  *>✓<  Y_bax-Y_b1  rt>  > 

3438  Yp I ot «Yor t  gln*<Top-<R7ght -LoFl) *81  op4 >4<Z^2  box >-Xor tgt nsS lop«*< < X-X  Bln) 
' < X_B4x-X_o 1 n  > ♦ <  Y- Y  olo>/<Y  bax-Y  Bin>> 

3448  SU8END  ”  “ 

3458  144444444444444444  44444444444444444444.4444444444444444  444444444444444444 

3487  14444444444444444444444  SUBROUTINE  LABEL  IT  444444444  4  4  44444  44444444444444 

3478  14444444444444  444444444444444444444444444444444444444444444444444444444.44 

3488  14  THIS  SUBROUTINE  SIHPlY  ACCEPTS  THE  GIVEN  LABEL  AND  PLACES  IT  UHERC  4 

3498  14  IT  IS  SPECIFIED  <td  X,Y  LOCATION)  AT  THE  GIVE':  TILT  ANCLE  .  THE  PEN  4 

3588  14  COLOR  'Porte  '  IS  ALSO  PROVIDED  BY  THE  USER  .  THIS  SAVES  A  LOT  OF  4 

3518  14  REPETITIVE  CODE  .  4 

3528  14444444444444  44444444444444444444444444444444444444444444444444444.44444 

3538  SUB  L4b«lu<x,  Y,  Tilt,  Pone,  StrngS) 

3548  PEN  Up 
3558  HOVE  X.Y 
3568  PEN  Pane 
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3370  loir  tm 
3380  LABEL  Strrgt 
3380  PEN  Up 
C600  SUBEND 


3«t6  . . Ml . MM* . . 

3820  ■•*»••  ••«*♦*•••*•'•#••*•«  SUBROUTINE  READFILE6 
3630 

J640  !*  '  THIS  SUBROUTINE  READS  SIX  DATA  VECTORS  FROM  A  DATA  FILE  AND  • 


3630  l»  SOOTS  THEM  SACK  TO  THE  AA1MFRAHE  FROCRAH  .  * 

3663 

3670  SUB  Raadft  l*6<Haa**, Job*,M*dtua*,N  data, XI t • > ,X2<»> , X3(« > , X4< • > , X3<» > , X6< 

•  >  ) 

3680  DIH  Ft  I.  naaa*(40] 


3690  • »••»•*••»•••••••#»••••»•««•»•••••** 

3700  . . .  DEFINITION  OF  VARIABLES  •*♦*♦•*•••»••»• 

3710  XMtMtMtMtMttMHKIU'tMHMIMttMMIUtmtMHIMI 

3720  •  Hull  I  NAME  OF  SERIAL  FILE  CREATED  TO  RECEIVE  DATA 

3730  ■  Job*  •  DESCRIPTIVE  JOS  LABEL  OF  COHTAIHED  DATA 

3740  <  Hadtua*  ■  ADDRESS  OF  HASS  STORACE  MEDIUM 

3730  !  N  data  >  HUHSER  OF  BATA  ELEMENTS  IN  EACH  VECTOR  . 

3760 

3770 


3700  t»*  ESTABLISH  COMPLETE  FILENAME  •• 

3798  . . . . 

3800  IF  H«dt<.a»«*  •  INTERNAL*  THEN 
3010  Ft  la  naaa*aHaaa*lAadl ua* 

3820  ELSE 

3030  Ftla  naaa**Nad > ua*RNaaa* 

3840  END  IF 

3030  I . . . . 

3860  I  ASSUV  1UFFER  I '0  PATH  TO  FILE  • 

3870  . . . . . 

3880  ASSIGN  fPatft  t  TO  Ftla  naaa* 

3890  . . . . 

3900  •««••••«  READ  JOB  LABEL 

3910  I . . . . . 

ENTER  0Paih  1 1 Job* 

3930  'aaaaaaaaaaVaaaaaaaataaaaaaaaaaaaa 
3940  t***t  READ  HUMBER  OF  ELEMENTS 
3930  IMItHMMiWtlllltttttltMtfttM 
3960  ENTER  0Path  1 1 H  data 
3970  (HMMMttMttMtMMXHItMttM 
3980  !*•  CORRECTLY  SIZE  DATA  VECTOR  ••• 

3990  lataaaaaaaaaaaaaaaaataataaaaaaaaaa 

4000  REDIM  XI  <N  data-  1  >  ,XL  .H  data-l>,X3(N  data-1) 

4010  REDIM  X4f  H~data- 1 ) ,  XStH~dat  a-l ) ,  X6<ll  data-l> 

4020  ItttttMXXItMWMMMimtttHt 

4030  I READ  DATA  VECTORS 

4C40  I*»*aaa*aa4*t**t*t**«a*4a**aaaa**t 

4030  ENTER  0Patn  1 1 XI ( a > , X2< a > ,  X3< a >  ,  X4< ♦ >  ,  XS< « > , X6< » ) 

4060  Ittt-MttMtMMHMtfttttXttM'l 

4070  laaaaa  CLOSE  FILE  and  BUFFFR  •»*♦» 

4080  IMMXtMtMItMMIXtmtlXMM 
4090  ASSIGN  BPath  1  TO  a 
4180  SUBEND 


4110  laaaaaaaaaaaaaaaa  •<••«••«  MXMltMIXMtHIItttMtttltXHXMttUlHt 
4120  taaaaaaaaa^aaaaaaaaaaaaa  SUBROUTINE  STORE  ARRAY  aaaaaaaaaaaaaaaaaaaaaaa 
4138  . . . 

4140  ••  THIS  SUBROUTINE  STORES  THE  SEA  SURFACE  ARRAY  ALONC  WITH  ITS  a 


4130  ••  TWO  ORDINATE  VECTORS  .  • 

4  160  1  HHtItttHtvtItKItXHmftMttIXtMlIttMMXXIttMttHMIXtIXt 

4170  SUB  Stora  arraytF  1  «  naaa*  ,  H«dt  i>a»  ,  N  data) 

4180  CON  X  otd<200),Y  ord<200>,Z  cserd<200,200> 

4190  CON  'Laba I »'  XI  aba  I *C  401 , Yfaba t *  1 40} , Jeb* 1 00 } 

4200  >  •■>••»>•<• . . aaaaaaaaaaaaaaa aaaaaaaaaaa 

4210  taaaaaaaaa  DETERMINE  COMPLETE  FILENAME  aaaaaaaa 
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422*  I 

4236  IF  A«dluaft*i INTERNAL*  THEN 
4240  File  nuil'FHi  naatSSAtdlua* 

4290  EL8C 

4200  FH»  nuidtlidl  uaflF  1  It  naat* 

4270  END  1 F  '  ' 

4200  Ft  It  »tI««IMT(<H  d»tt"2»2tN  dala>/9> 

4290  i 

4300  la  CREATE  DATA  FILE  FOR  0TO00CE  • 

4310  . . . 

4320  CREATE  MAT  Flit  nutl.FIII  tilt 
4330  I  HMHHMMIHMIMMHItMU** 

4340  Ittt  OPEN  CHANNEL  TO  IxO  PATH 
4330  I ttttttttt.aaaatttttaaatttattttta 
43C0  ASSIGN  0Path  1  TC  *11#  nw<« 

4370  I 

4300  It  STORE  VCCTOR  AND  ARRAY  SIZE  »• 

4390  I  . . . . . . . . . 

4400  output  OPatn  t|N  data 
4410  I tttttt ttt tttt ttttttt aaaaatattaaa 
4420  I  ttttttt  STORE  JOS  LAIEI.S  ttttttt 
4430  I ttttttttttttttttttttttttt ttttttt 
4440  OUTPUT  0Path  l|Job» 

4430  OUTPUT  OPaih'l|XlaD*lt,Ylabti* 

4400  I tttttt ttttttt ttttttttttttttttttt 
4470  Ittt  STORE  ORDINATE  VECTORS  ttt 
4400  <  tttttt ttttttttttttttttttt ttttttt 
4490  REDIA  x  ord< n  data*  1  > , V_ord<N  data*l> 

4900  OUTPUT  fPa»h_T|X_ord<a>,Y  ord~t) 

4310  I aataaaaaaaatattatttatataattaatat 
4320  Ittt  STORE  Z  COORDINATE  ARRAY  ttt 
4330  I tttttttttttttttttttttttttttttttt 
4340  FOR  1«0  TC  M  data-l 
4330  FOR  J«0  tZ  n  data-l 

4300  OUTPUT  OPath  3 1 Z  coord! 1 , J  > 

4370  NEXT  J 

4300  NEXT  I 

4390  'ttt . ttt  tttttt  tttttt  ttttttt 

4000  Itt  CLOSE  CHANNEL  TO  DATA  FILE  tt 

4010  I . ttttttt . ttttttt . 

ASSIGN  OPath  I  TO  • 

4430  SUSENO 

<040  I  tttt  ttttttt  ttttttttttttttttttttttttt  ttt  ttttttttttttttttttttttttt  ttttttt 
4030  I  ttttttttttttttttttttttt  SUSROUTINC  VIDEO  NOISE  ttttttttattttttttttttttt 
4000  I  tttttt  ttt  tttt  tttttt  tttt  ttt  ttttttt  ttt  ttttttttt  ttttttt  ttttttttttttttttttt 
4070  It  THIS  SUSROUTINC  GENERATES  GENUINE  VIDEO  CAME  SOUND  EFFECTS  FOR  t 

4SO0  !t  fiANY  CYCLES  A8  YOU  SPECIFY  .  t 

4090  I  ttttttttttttttttt  ttttttttttttttttttt  tttt  ttttttttttttttttttttttttttttttt 
4700  SUS  Vtdto  gaattN  eycltt) 

4710  IF  N  eye  1  *»< 1  TmFh  N  eye lt»*l 

4720  FOR  K»0  TO  N  Cyel«»-T 

4730  FOR  I«0  T0_4 

4740  FOR  >0  TO  10 

4730  SEEP  Jtl09,l'l90 

4700  NEXT  J 

4770  NEXT  I 

4700  NEXT  X 

4790  SUSEND 
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31  Hug  190?  20i43i47 

lilt  •••••••••••••»••••»••••••••••••••••••••••••••••••*••••••••*••••••••••>•• 

1019  I**************************  KOCIM  SEE  SPEC  HI*»Mt***M**l**4M*#»»H 

1020  I . . 

1030  I*  THIS  fRJ>CRAM  DOOTS  IN  a  FREQUENCY  spectrum  and  permits  the  • 


1040  14  USER  TO  PLOT  AND  EXAMINE  IT  .  • 

1090  1 44444444#4444444444444444  4  44#44444  4444  44i4444  44444444444444444  444444444 

1000  DIM  Fr*pu*nc  y<4990>  ,  Magn  1 t  ud*  <  4090  > ,  Pha**(  409S> 

1070  DIM  NaaoSI 10), n*dtua*(20] ,  Job* (001 

1000  . . 

IIM  I •*•*•*♦♦*♦••*•  9EPIN1TION  OP  LOCAL  VARIABLE*  444t44..l*»44*l 
1100  I************************************************************ 

1110  T  4 AA0l •  ■ 1 S09 
1120  P7**4*ATN<1> 

1130  M*dlua0**0ASIC/DATA  PILE/* 

1140  Pane -2 

1139  I  4444444444444444444444444444444444*444444444  4444444444444444 

1100  PRINT  CHR*< 12) 

1170  INPUT  *Enl*r  PILtNAHE  o t  SOURCE  Data  Fll* . ’,Naa«f 

1100  INPUT  *Ent*r  FREQUENCY  LIMIT  on  Soectrua  <H«rl*>  ...*,F  aax 

1190  I  44444444444444444444444*4**4444**444444444* 

1200  I********  COMPUTE  TIME  1ASE  VECTOR  ********* 

1210  I******************************************* 

1220  CALL  R **071 1  *3(NAA«f , Job*, Modi uat , N  pol nt , Frequency! •> , (logo I tud*< •) , PMaa* 

<*)> 

1230  PRINT  CNRK12) 

1249  PRINT  Job* 

1230  N  ltatt-INTCF  a*x/Fr*qu*ncy <  1 ) 1 

1200  . . 4*4 . 4*4* . . 

1270  I*  CONVERT  DATA  TO  FOURIER  TRANSFORM  SCALE  • 

1250  144444444  44*44444444*4  4444444444444444404440 

1290  RED  1M  Fr*qu*ncy<N  It  at  t  - 1  ),  Magn  I  tud*<N  1  tat  t-l  >,  Phaa*<N  llatfl) 

1300  FOR  1-0  TO  NJlait-l 

1310  Magnl tyd*?l )-Magnttud*< I >*T  *aapl* 

1320  NEXT  I 

1330  S_au«MAX'Magnttu4«(*)> 

1349  CALL  Plot  ft  l«(Fr*qu*ncy(*>  ,  Magnl  tud«<  *>  ,  N  ltalt,0,F  aix,  -S  aax.S  aax,P«n 
t.*Y*>  "  " 

1330  INPUT  *Mtt  Return  to  CONTINUE  ...*,A* 

1300  P*nc-P*nc*l 

1370  CALL  Plot  f  1  l*<Fr*qu*ncy<*>,Ph*»«'.*>,H  ltatt,0,P  aax ,  *2»P  I *, 2*Pl *, Pone ,  *V 
*  >  “ 

1300  PRINT 

1390  PRINT  'Total  Record  Length  I*  *jN  point)*  Point* . * 

1400  INPUT  -NIT  RETURN  . • • * i AS 

1419  CRAPNICS  OFF 

1420  PRINT  CHR0< 12) 

1430  END 


1449  I ******************************4**************************************** 
1439  <******4**4*************  0UIROUT INC  RIADFJLE3  t************************* 
1400  I*********************************************************************** 
1470  •*  THIS  0UIROUT 1NE  READS  THREE  DATA  VECTORS  FROM  DISK  STORAGE  OF  » 


1400  I*  EOUAL  LENGTH  AND  SOOTS  THEM  INTO  THE  DUMMY  VECTORS  X< * >, Y( *  1 , 2(*> .  * 

1499  ! *********************************************************************** 
1300  SUS  Roadfl i*3<Naa*9, Jobs, H*dl uaS, N  dat a, X<*) , Y<*> , 2< •» ) 

1319  DIM  PI  I*  naatSC40] 

1329  I •••••••*•*«•*•*•*••*••*•*••••»••*•*«•*•••••••*•»*•••*•**••*•**• 

1330  i ••*••••*•****•***••  DEFINITION  OF  VARIADLES  •*•»••*••**•*•*•••• 

1340  ! ••*••••••••••••••••••••••••••••••••«••••••••••••«••••«••••*•*•• 

1330  I  Naa*S  I  NAME  OF  SERIAL  FILE  CREATED  TO  RECEIVE  DATA 

1300  I  Job*  l  DESCRIPTIVE  JOS  LADS'.  OF  CONTAINED  DATA 

1370  i  Mtdtua*  I  ADDRESS  OF  MASS  ST'eACE  MEDIUM 

1300  '  N  data  I  NUMDER  OF  DATA  ELEMENTS  IN  EACN  VECTOR  . 

1390  '*4^44**44***44*44*444*4*44*4**4**4*4*4**4**4***44444*4***44*4** 
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ISIS  I  ASSIGN  BUFFER  1^0  PATH  TO  FILE  • 

1(2*  !••••••••••••••••••••••••••••••••• 

I  OR  IF  Hedtua*a*i  INTERNAL'  THEN 
1*40  File  ni(«(»NutHllldtutl 
too  ELSE  ■ 

ICO  File  neaeSaHedluaSlNaaef 
1*7$  END  IF  " 

I  OR  MUCH  OPath  1  TO  F«  1*  naaei 
KIR  1 

1700  I  READ  JOB  LABEL  ••••••••• 

1710  I *••••«•••••••••••«••••••••••••••• 

172R  ENTER  OPath  l|Job* 

1730  1 ••••••••••••••••••••••••••«•••••• 

I74R  !•♦♦  ENTER  NUNBER  OF  ELENENTR  •••• 

I79R 

170  ENTER  OPath  1|H  Rata 

177R  IMttMMtMMMKttlMMItMtttH 

17RR  I ••  CORRECTLY  S12E  DATA  VECTOR  ••• 

1740  I *•*•••••**••»••«••«»**•»*»»•••»*• 

1RRR  REDIN  X(N  data-l),Y(N  data-l),Z(H  data-1) 

It  IB  l 

1R2R  I •#•••••  READ  DATA  ARRAY  aeeeaaee 

1R3R  I ••••»•••••••••••••••••••••••»•••• 

1R4R  ENTER  OPath  1 |X(»), Y(e>,2(e> 

1R9R  *#T.. 

1RO  Idtaaa  CLORE  FILE  AND  BUFFER  ••••• 

1R7R  )••••••••••«••••«••••••••••••••••• 

IRRR  ABBICH  RFath  I  TO  • 

IBM  BUBENB 

1410  laeeeeeeeeeeeeeeaeeeeeee  SUBROUTINE  FLOT  FILE  ••••••••••••*••••••♦•••••• 

1420 

1 430  I*  THIS  SUBROUTINE  ACCEFTS  THO  DATA  VECTORS  AND  FLOTS  ONE  VERSUS  * 

1440  I*  THE  OTHER  .  THE  USER  NEED  ONLY  8UFFLY  THE  LINITS  OF  THE  CIVBN  • 
1490  I •  VECTORS  AND  THE  DESIRED  FLOTTIHC  COLOR  .  SCALING  AND  AXES  ARE  AUTO-  • 
140  t«  NAT ICALLY  PROVIDED  BY  THIS  SUBROUTINE  .  • 

1470  •»*•••••••••••••••••••«••••••••••••••••••••••••••••••••••••••••••••••••• 

1400  SUB  Plot_f  t  le(Xdata(*>,  Ydata(«>,Nplot , Xetn, Xaax, Yal n, Yaax , Pane , Newt ) 

1440  CON  /P 1 o7_b lock/  Xecale, Y»ca1e,Xoff»et .Yoffeat 

2000  ••••••••••••••••••••aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

2010  i  •eeeeeeoeoeeea  DEFINTIT10N  OF  LOCAL  VARIABLES  ••••••••••••• 

2020  («••••••••••• 

2030  i  Xdata<*> 

2040  i  Ydat a<»» 

2090  l  Ha let 
2000  l  Xeln 
2070  l  Xaax 
2000  1  Yarn 
2040  •  Yaa» 

2100  l  Pant 
2110  •  HawS 
2120  Uhlte«l 
2130  A  coloraUhtte 
2140  xTaftaO 
2190  Xrai 1 >20 
2100  xcantara04 
2170  Xrt«ht«l2B 
2100  YbottoaM 
2140  Yrat l -10 
2200  Y«enter«4S 
2210  Yt  oa*M 
2220  •  X  danoa 
2230  I  Y~danoa 
2240 
2290 

2200  t aa  CLEAR  AND  INITIALIZE  GRAPHICS  IF  SPECIFIED  • 


ABSCISSA  DATA  VECTOR  TO  BE  PLOTTED  . 
ORDINATE  DATA  VECTOR  TO  BE  PLOTTED  . 
NUNBER  OF  DATA  POINTS  IN  VECTORS  . 
SNALLEST  ELENENT  In  Xdata<a>  VECTOR  . 
LARGEST  ELENENT  IN  Xdata<*>  VECTOR  . 
SNALLEST  ELENENT  IN  Ydata(a>  VECTOR  . 
LARGEST  ELENENT  IN  Ydeta(a)  VECTOR  . 
DESIRED  COLOR  CODE  OF  PLOTTING  COLOR  . 
ORDERS  THE  ROUTINE  TO  CLEAR  THE  GRAPHICS 
DEFINE  THE  COLOR  CODE  FOR  UNITE 
SET  AXIS  COLOR  UNITE 
DEFINE  LEFT  OF  SCREEN 
DEFINE  X  AXIS  RAIL 
x  COORD  CENTER  SCREEN 
DEFINE  RIGHT  SCREEN 
DEFINE  LOUER  SCREEN 
DEFINE  V  AXIS  RAIL 
Y  COORDCENTER  SCREEN 
DEFINE  TOP  OF  SCREEN 
DENONINATOR  OF  X  PLOTTING  SCALE  FACTOR 
DENOHINATOR  OF  Y  PLOTTING  SCALE  FACTOR 


(Plotter  Unite) 
(Plotter  Unite) 
(Plotter  Unite) 
(Plottar  unite) 
(Plotter  Unite) 
(Plottar  Unite) 
(Plottar  Unite) 
(Plottar  Unite) 
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2271  I  ••••*••••*<•••••••••••♦••••••••••••••••••••••••• 

2299  I F  NonOa*Y*  THCN 
229*  CINIT  1.9 
2399  GRAPHICS  ON 
2319  PIN  Mhtta 

2329  VJfUPORT  Xlofv,XrlgHt ,  Ybottoa,  Ytop 
2339  FRANC 

2349  laaaaaaaaaaaaaaaaaaaaaaaaoaaaaaaaa 
2399  la  SRAM  PROPCR  ANC9  FOR  PLOT? INC  • 

23(9  • aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

2379  IF  Xaln<9  THCH 

2399  IF  Yatn<9  THIN  I aaaaaaaaaaaaaaaaaaaaaaoaaaaaaa 

2399  Xoffootaxcontor  I*  POUR  OUAS  AXIS  BRAUN  HCAC  • 

2499  Yof footaYcontor  1000000000000000000000000000000 

2419  X_(anoaaXaax 

2429  Y~d«noaaYa«x 

2439  cXlL  Ax  I  a_dr«M<Xl  of  t ,  Yoffaat ,  Xr  I  ght ,  Yof  f  oat ,  A_col  or ,  *Xaax,  Xaox  > 

2449  CALC  Ax1»”dr»»*<Xoff#ot  .  Ybottoa, Xoff sot ,  vtop,  A  color  >  -Yaax,  Yaax) 

2499  CLtC  "  I aaaaaaaaaaaaaaaaaaaaaaoaaaaaaa 

24(9  Xoffootaxcontor  la  +s-  X  TYP«  AXIS  BRAUN  HfRC  a 

2479  YoffootaYroi  1  laaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

2499  X_danoaaXaax 

2499  Y~donoa«Yaax-Yain 

2999  CALL  Axl  o_draw<xi  af  t ,  Yof  foot  , xrlght ,  Yof  foot .  A^eolor ,  -Xoax.Xoax) 

2919  CALL  Axlo~draa<XoPfoot,YbottOB,Xoff4ot,YtoptA“c©lor, Vain,  Yaax) 

2929  IND  IF 

2939  (LSI 

2949  IF  Yaln<9  THIN  | aaaaaaaaaaaaaoaaaaaaaaaaaaaaaa 

2999  Xoff oataXral 1  l»  ♦✓-  Y  TVPC  AXIS  BRAUN  NCRC  a 

29(9  Yoffsatavcantar  | aaaaaaaaaaaaaoaaaaaaaaaaaaaaaa 

2979  X_danoaoXaax>Xaln 

2999  Y  donoa«Yaax-Yatn 

2999  cIlL  Ax I o_dr  *< Xoff oat . Yof foot  , Nr I ght , Yof f aot ,  A_c o I  Or , Xa I n , Xaox  > 

2(99  CALL  Axi©“dra«*<Xoffoot,Ybotto«,XofPo©t,Ytop,A  col  or , -Yaax,  Yaax> 

2(19  Yoffootavbottoa 

2(29  CLSI  I aaaaaaaaaaaaaaaaaaaaaaoaaaaaaa 

2(39  XoffootaXrat I  I  a  ♦  ONLY  XSV  AXCS  BRAUN  NGRC  a 

2(49  YoffootaYbottoa  | aaaaaaaaaaaaaaaaaaaaaaoaaaaaaa 

2(99  X_donoaaXaax-Xaln 

2(49  Y  donoaaYaax-Yatn 

2(79  C*LL  Axto_drow<  Xoff  aot ,  Yof  foot , Xrlght ,  Yof  foot,  A_co  lor,  Xa  In,  Xaox  > 

2499  CALL  Ax  I o— dr ow< Xcf f aot , Yof f oot , Xof f oot ,  Yt op, A  color, Yatn,Yaox> 

2(99  INS  IF 

2799  INB  IF 

2719  Xocoloatxright-xoffoot >/X_donoa 
2729  Yocaloa<Ytop-Yoffoot >'Y  donoa 
2739  CHB  IF 

2749  laataaataaaaoaaaaaaaaaaaaaoaaaa 
2799  la  BATA  VCCTORS  PLOTTCB  IClOU  a 
27(9  I aaaaaaaaaaaaaoaaaaaaaaaaaaaaaa 
2779  PINUP 

2799  CALL  Seal  Or  <Xdot  a<9» ,  Ydot  o<9> ,  Xaln,  Xaox,  Yal  n,  Yaax,  X_pl  ©t ,  Y  plot) 

2799  PIN  Pone 

2999  NOVI  X  plot.Y  Blot 
2919  FOR  !•*  TO  NpTot-1 

2929  CALL  Sc al or  < Xdat  a(  I ) ,  Ydat  a<  I ) , Nat  n,  Xaa>  n,  Yaax, X_p lot ,  Y_p1ot ) 

2939  BRAU  X_plot,V _plot 
2949  NIXT  I 
2999  SUIINB 


29(9  • aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
2979  I aaaaaaaaaaaaaaaaaaaaaaa  SUIR0U71HS  AXIS  BRAU  aaaaaaaaaaaaaaaaaaaaaaaaaa 
2999  looaaaaoaaaaaaooaaooaaoaotooaoaoaoaaaoooaoaoaaaaoaaoaaaaaaoaaaoaoaoooaoa 

2999  la  THIS  SUBROUTINC  BRAUS  AN  AXIS  FROH  TNI  START1MC  C00RB1NATI  TO  • 


2999  la  TMI  FINAL  ONI  .  IT  ALSO  QUANTIFICS  TNI  ORIGIN  ANB  TCRNINUS  OF  SAIB  • 
2919  *a  AXIS  .  • 
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2939  tut  A*l»  drwOlii  *ri ,  Yntrl  ,Xf  Inal  ,  Yf  1  nal ,  Axl  a  color, A  aln,A  aax> 

2949  Pl«a44ATN<l> 

2999  D4lt»»3 

2999  PtNUP 

2979  PEN  Ant »  color 

2999  PENUP  '  -  - 

2999  AOVI  X»t  art ,  Yat  art 

2999  9KAU  xf Inal ,Tf trial 

39 1 9  At  HUP 

3929  C9I2E  3. 9,. 9 

3939  CALL  Rounder (A  0)0,3, 99) 

3949  CALL  Rounder (A-aax, 3, Al > 

3999  I A  Xttort-XPtnol  THtM 

3999  CALL  Lab4llt<X»tart>D#lt*,Y*t«rt,Ptt/2,Axt9  color, VAL*<A9)» 

3979  CALL  Labt 1 1 t  <Xf  I  nal -Da  1 1 a, Yf I  no! -2*D# I t o, A) or2, Ax) >  color, VALS<A1>> 

3999  tLtt 

3999  call  L*b4  1  1 1  <X»t  ort ,  Y«t  art -Dal 1 0,9,  Am)  t^col  or,  VALS(A9>  > 

3199  CALL  L*b«l * » <Xfl not -2«Da I  to,  Yal art -Da  I  t a, 9,  Ax) 4  color , VALt <Al ) > 

3119  (ND  IF 
3129  tUtCNB 

3139  (•••••••••••••••••coo**************************************************** 

3149  <•»••*•••••••••••••••••  tUBROUTlHC  LAttLIT  aaaaaaaaaaaaaaaataaaataaaataaa 

3199  !  •••••••♦•♦0000440*4*40*0*04#040*#0#40**4##0#04*4000#00*0#000#4##0#4##044 

3199  '*  THIS  SUBROUTINE  tlHALY  ACCEPTS  T4t  Cl  YEN  LABEL  AM®  PLACES  IT  HMtRt  4 

3179  <•  IT  IS  SAEC1AIEB  (l«  X,Y  LOCATION)  AT  THE  CIVEN  TILT  AHCLE  .  THE  PEN  4 

3199  I*  COLOR  Pone'  It  ALSO  PROVIBES  BY  THE  USER  .  THIS  SAVES  A  LOT  OA  4 

3199  ••  REPETITIVE  CODE  .  • 

3299  laaaaaaaaaaaaaa.aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
3219  SUB  Loot  1 lt<X,Y,Tllt,  Pone  ,  Strng»> 

3229  PENUP 
3239  HOVE  X, Y 
3249  PEN  Ptnc 
3299  LOIR  Tilt 
3299  LABEL  Strngf 
3279  PENUP 
3299  SUBENB 

3299  . . . 

3399  It****.#**#** . .  SUBROUTINE  SCALER  aaaaaaaaaaaaaaaaaaaaataaaa 

3319  . . . . . . . . . 

3329  14  THIS  SUBROUTINE  SCALES  THE  BATA  PASSES  TO  IT  AOR  CRT  PLOTTlNC  4 

3339  It  PURPOSES  .  • 

3349  . . . 

3399  SUB  Scalar(X_data,Y_data,XatnlXaax,Yatn,Yaax,X_plot,Y_plot) 

3399  CON  /Plot_01ock/  Xacala, Var ol 4, Xoffaat , Yoffaat 
3379  X_p I ot aXac  al 4#  < X_dat a-Xa I n > »Xof f aat 
3399  Y_plotoV»eolot<Y_doio-Yoto)tYof 7»»t 
3399  SUBCND 

3499  . . . . . 

3419  1 ootttotttototoototottttt  SUBROUTINE  ROUNDER  •t*o*tot#44*t*t44***tt4**tt 

3429  . . . . . . . . . . . 

3439  THIS  SUBROUTINE  ACCEPTS  A  NUMBER  OA  ANY  SIZE  OR  SICN  AN®  t 

3449  •«  ROUNDS  IT  TO  THE  SPECIFIED  NUMBER  OF  DIGITS  .  4 

3499  . . . 

3499  SUB  Roundar <X_t nput ,N_dl Rl t a, X_roundad) 


3479  . . . . . 

3499  l44.«.4.*tM»  DEFINITION  OF  LOCAL  VARIABLES 
3499  . . . 

3999  I  X  Input  I  INPUT  HUMBER  TO  BE  ROUNDED 

3919  I  x'duaay  I  DUMMY  VARIABLE  USED  TO  PROTECT  X  Input 

3929  I  N'digitp  I  NUMBER  OP  81CI ft  DISPLAYED  AFTER- BOUNDING 

3939  I  x'roundtd  !  ROUNDED  ESUI VALENT  OF  X  Input 

3949  1  Sign  I  NUMERICAL  POLARITY  OF  ROUNDED  NUMBER 

3999  '  Magnitude  I  ORDER  OF  MAGNITUDE  OF  INPUT  NUMBER 

3399  •  "ant  lata  I  MANTISSA  OA  NUMBER  UNDER  ROUNDING 

3979  I  ARGUMENT  I  ABBREVIATED  VERB  ION  OF  MANTISSA. 

3999  . MM  •••••••IttHtttMMtM* 


3399  IF  X_l nput <  >9  THEN 
3999  X  duaav«X_ Input 
3919  STgnatCNtX  duaay) 

3929  X  duaayaAtllX  duaay) 

3939  Mpgnl todaalMT— LCT  dually) ) 

3141  Mvi|liu«X  4uM^(llANA9Aitu4«) 

3999  Arguaant •  |Rt  <Mant  I aaa* 19- (N_d  I  gl  i»-i>)"'19M N_d I gl t a- 1  > 

3999  X  roundod>tl gntArgua*nt a|9-Magnt tuda 
3979  ELSl 

3999  X  rounded-X  Input 
3999  END-IP 
3799  SUDEND 
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